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BACKGROUND OF THE INVENTION 



1. FIELD OF THE INVENTION 

This invention relates to dynamic brokering of messages between 
objects implemented using like or different object models. 

5 2. BACKGROUND 

H 

Object-oriented programming is a method of creating computer 

C3 

M programs by combining certain fundamental building blocks, and creating 

M relationships among and between the building blocks. The building blocks 

III 

4;| in object-oriented programming systems are called "objects." An object is a 

Q 10 programming unit that groups together a data structure (instance variables) 
f«j and the operations (methods) that can use or affect that data. Thus, an object 

f Z consists of data and one or more operations or procedures that can be 

f'i | 

performed on that data. The joining of data and operations into a unitary 
building block is called "encapsulation." In object-oriented programming, 
15 operations that can be performed on the data are referred to as "methods." 

An object-oriented software application uses objects to define its data 
and the methods that operate on the data. An object communicates with 
another object via messages. For example, when one object needs to 
manipulate data that resides in another object or needs to execute 
20 computation methods in another object, it sends a message. The requesting 
object identifies the desired manipulation operation by specifying a method. 
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The requesting object can further send arguments that can be used by the 
second object in performing the named method. The servicing object 
performs the method requested in the message. The data provided by the 
requesting object can be used to perform the requesting operation. In 
client/server terminology, the requesting object is called the client object and 
the servicing object is called the server object. 

When the client and server objects are running in the same computer 
and operating system or in the same process or memory address space, the 
program or system can use its own mechanisms for messaging and object 
identification without regard for any other systems. The physical location of 
the objects is determined, known, and maintained by the single system. In a 
distributed environment, however, objects can reside on different systems 
and across networks, for example. Thus, in a distributed environment, a 
client object may need the services of a server object that resides on a remote 
system. Not all object models provide for such remote requests. Also, the 
remote system may use an object messaging mechanism that is incompatible 
with the client object's messaging mechanism. In that case, the client object 
and server object cannot communicate or "interoperate"." 

An object model provides a mechanism for communication, or 
messaging, between objects within the model. The mechanism includes a 
protocol that defines the method of communication. Examples of object 
models include the NeXT object model, Microsoft's Object Linking and 
Embedding/Common Object Model (OLE /COM), SunSoft's Distributed 
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Object Environment (DOE), and Smalltalk. To facilitate communication, an 
object model can use an object bus, or an Object Request Broker (ORB). An 
ORB allows objects to make requests of, and receive responses from, other 
objects. Examples of ORBs include CORBA (defined by Object Management 
Group), SOM from IBM, ORB Plus from HP, ObjectBroker from Digital 
Equipment Corporation, and Orbix from Iona. 

An ORB uses an Interface Definition Language (IDL) to define static 
interfaces between objects. For example, an interface defines the methods 
and properties, or arguments, for each object. An interface file written in 
IDL is compiled to generate client and server language-specific stubs such as 
C, C++, Objective-C, etc. These stubs must be compiled into both the client 
and the server before any communication can take place. 

These language-specific stubs define how clients invoke 
corresponding services on the servers. From a clients perspective, the stub 
acts like a local call. The stub is a local proxy for the remote server object. 
The stub includes code to encode and decode an operation and its parameters 
into a compacted message format that can be sent to the server. This is 
referred to as marshaling. Several ORBs, including the CORBA ORB, are 
described in detail in R. Orfali et aL, "The Essential Distributed Objects 
Survival Guide" (New York: John Wiley & Sons, 1996). 

In addition to the language-specific stubs, CORBA provides some 
application program interfaces (APIs) on the client-side to facilitate object 
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communication. A Dynamic Invocation Interface provides APIs that can be 
used to look up the metadata that defines the server interface, generate 
message parameters, issue a remote call, and receive results from the call. 
An Interface Repository is a run-time database that contains 
5 machine-readable versions of the IDL-defined interfaces. The APIs 

associated with the Interface Repository provide mechanisms for retrieving, 
storing and updating the metadata information contained in the Interface 
Repository. The ORB Interface includes APIs to convert an object reference 
(i.e., a unique name or identifier associated with an object ) to a string. 

10 Like the client side, the server side includes IDL stubs, or server stubs. 

A server stub is also referred to as a skeleton. Like a client stub, a server stub 
is defined using IDL and created using an IDL compiler. A server stub 
provides a static interface to a service provided, or exported, by a server. It 
calls the method on the server identified by the client. On the server side, 

15 CORBA provides functionality to aid in servicing a request. 

A Dynamic Skeleton Interface provides a run-time binding 
mechanism to handle incoming method calls directed to a server that does 
not have a server stub. An object adapter provides the run-time 
environment for instantiating a server object, assigning an object reference 
20 to a server object, and passing it a request. An Implementation Repository is 
a run-time repository that identifies the classes a server supports, the objects 
that are instantiated, and the instantiated objects' object references. 
Administrative data such as trace information can also be stored in the 
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Implementation Repository. The server side includes an ORB Interface that 
is the same as that used on the client side 

Existing object models such as the ones identified above do not 
provide a means for dynamic communication across object models. Thus, 
an OLE object cannot automatically and dynamically communicate with an 
object in the DOE object model When a programmer is preparing an 
application program that must communicate across object models, the 
programmer must identify the destination objects to the ORB by declaring 
and defining them in an IDL method file. The IDL method file is then 
compiled in conjunction with run-time libraries of each object model, 
producing separate executable files for the client and server. This process 
must be repeated when a method or property of an object changes or when 
the application program is modified to reference new objects in a foreign or 
incompatible object model, for example. Thus, the ORBs only provide a 
static means for communicating across object models. The ORB is not 
capable of dynamically passing a message from one object model to an 
incompatible object model without prior knowledge of the method. 

In OLE Automation, a subset of the OLE /COM object model from 
Microsoft Corporation (MS), a set of object definitions (or ODL) is compiled 
to create a type library or repository of object descriptions (e.g., objects and 
their methods and properties). Before invoking a method in an object, an 
OLE /Automation client object queries the library, or the library itself, to 
determine whether a server object can process the desired method. To do 
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this, the object invokes the GetlDsOfNames method on the server object to 
determine whether the desired method is a valid method of the server 
object. 

The GetlDsOfNames method converts text names of properties and 
methods into a corresponding set of dispatch identifiers (dispIDs). A dispID 
uniquely identifies a method or argument. It is assigned to a method or 
argument in an object description file that is compiled before run-time. 
Thus, if a method or property is added, a new dispID must be generated and 
compiled into the server. 

If the response from the GetlDsOfNames method returns a dispID for 
the desired method, the client object invokes the method on the server 
object using the dispID to identify the method. If it is not a valid method, 
the client object must handle the error. If the method exists, but an error is 
raised during processing, the client object must handle a different error. 
This is awkward because it requires the application programmer to write 
code to handle at least two types of error messages. 

Further, this process requires the client object to send two messages. 
When the client and server objects do not reside on the same machine, the 
messages must be sent across a network between the client and server objects 
to invoke a single method. This increases the network's message load, 
which is undesirable. 
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SUMMARY OF THE INVENTION 



The present invention dynamically brokers object messages between 
objects implemented using object models. mediating component 
provides a bridge between objects in these object models such that messages 
5 can be transmitted in either direction between object models. The mediating 
component can be resident on a client machine, a server machine, or both, 
depending on the type of communication being done. The mediating 
component can be used as a bridge between two instances of the same object 
model running on different machines. Thus, a networked version is created 
10 for an object model that otherwise lacks a networking capability. 

The mediating component intercepts messages sent by a client object 
to the server object. That is, messages sent by a client object are sent to the 
server object via the. mediating component. However, the client believes 
that the messages are being sent directly to the server object The mediating 
15 component creates a mapping between a client object and a server object. 
Mapping information is determined by the mediating component when a 
client object requests a connection to the server object. 

When a client requests a connection to a server object, the mediating 
component determines whether the server object is available on the server 
20 machine. If the server object is available, the mediating component returns 
a proxy (e.g., returns pointer to or identifier for the proxy object) for the 
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server object to the client object. If the proxy object does not already exist, the 
mediating component creates the proxy object. 

If the stub object associated with the server object does not exist, it is 
created by the mediating component. The mediating component creates a 
mapping between the proxy object returned to the client object, the server 
object's stub object and the server object. The mapping information can be 
stored in one or more tables, for example. A table look up mechanism can 
be used to retrieve the mapping information. 

The mapping information can be used to satisfy a future connection 
request. When a connection request is made for a server object, the 
mediating component queries the mapping information to determine 
whether a mapping already exists for the requested server object. If a 
mapping does exist, the identity of the proxy object is returned to the client 
object. 

The client object uses the connection to send a message to the server 
object. A client object's message is forwarded to a server object via the proxy 
and stub objects. The mediating component performs any necessary message 
translation. In addition, the mediating component translates a server 
object's response. 

The client object's message is generated using the message protocol of 
the client object's object model. The client object's message is translated into 
the message protocol of the server object's object model. For example, the 
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proxy object determines the expected method identification and the number 
and type of arguments for the server object. 

The proxy object builds a method invocation for the server object 
using the client object's message and the information expected by the server 
object. For example, the proxy object translates a method identification in 
the client object's message to one expected by the server object. In addition, 
the proxy object can translate the arguments such that the types of 
arguments provided in the client object's message are the same as the 
expected types. For example, a string argument can be translated into an 
object argument. 

A translated message is forwarded to the server object on the server 
machine via the proxy and stub objects mapped to the server object by the 
mediating component. The proxy object forwards the translated message to 
the stub object. The stub object forwards the translated message to the server 
object. The server object processes the message. A response is forwarded to 
the proxy object via the stub object. The proxy object translates the response 
message using the client object's message protocol. In addition, the proxy 
object can translate the response such that the response type is that expected 
by the client object. The message is forwarded to the client object. 

The mediating component delays the creation of a server machine 
stack until it is determined that a method is callable on the server machine. 
A message is forwarded to the server object via a plurality of intervening 
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objects such as the proxy and stub objects on the server machine. The 
invention waits until the message is received by the last intervening object 
(e.g., the server object's stub object) before the message is unraveled. 
Otherwise, each intervening object would retrieve the method and 
arguments from the message, push the arguments on a stack, attempt to 
invoke the method, fault, rebuild the message, and forward the message to 
another object. The invention optimizes the message transmission by 
eliminating the need to unravel the message at each intervening point. 

The mediating component can be resident on the client, server, or 
both. The mediating component can act as a bridge between compatible or 
incompatible object models. 
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BRIEF DESCRIPTION OF THE DRAWINGS 



Figure 1 provides an example of a general purpose computer to be 
used in accordance with embodiments of the present invention. 

Figure 2 provides a block diagram giving an overview of 
5 embodiments of the present invention. 

Q Figures 3A-3C provide configuration examples according to 

Sj embodiments of the present invention. 

m Figures 4A-4C provide a process flow according to an embodiment of 

the present invention for brokering object messages using a bridge on the 
fn 10 server machine. 

N Figures 5A-5C provide a process flow according to an embodiment of 

W the present invention for brokering object messages using a bridge on the 

client machine. 

Figures 6A-6C provide a process flow according to an embodiment of 
15 the present invention for brokering object messages using a bridge on both 
the client and server machines. 

Figure 7 A provides an example of a process flow for translating 
argument types from the NEXTSTEP /OPENSTEP environment to the 
Windows environment according to an embodiment of the invention. 



10010.946 



Figure 7B provides an example of a process flow for translating 
argument types from the Windows environment to the 
NEXTSTEP /OPENSTEP environment according to an embodiment of the 
invention. 

Figures 8A-8B provide an example of a process flow for establishing a 
connection and generating a mapping between client and server objects 
according to an embodiment of the invention. 

Figure 9 provides an example of a delayed stack creation process flow 
according to an embodiment of the invention. 
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DETAILED DESCRIPTION OE THE INVENTION 



A method and apparatus for dynamically brokering object messages 
among object models is described. In the following description, numerous 
specific details are set forth to provide a more thorough description of the 
present invention. It will be apparent, however, to one skilled in the art, 
that the present invention may be practiced without these specific details. In 
other instances, well-known features have not been described in detail so as 
not to obscure the invention. 

The present invention can be implemented on a general purpose 
computer such as illustrated in Figure 1. A keyboard 110 and mouse 111 are 
coupled to a bi-directional system bus 118. The keyboard and mouse are for 
introducing user input to the computer system and communicating that 
user input to CPU 113. The computer system of Figure 1 also includes a 
video memory 114, main memory 115 and mass storage 112, all coupled to 
bi-directional system bus 118 along with keyboard 110, mouse 111 and CPU 
113. The mass storage 112 may include both fixed and removable media, 
such as magnetic, optical or magnetic optical storage systems or any other 
available mass storage technology. Bus 118 may contain, for example, 32 
address lines for addressing video memory 114 or main memory 115. The 
system bus 118 also includes, for example, a 32-bit DATA bus for transferring 
DATA between and among the components, such as CPU 113, main 
memory 115, video memory 114 and mass storage 112. Alternatively, 
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multiplex DATA/address lines may be used in place of separate DATA and 
address lines. 



In the preferred embodiment of this invention, the CPU 113 is a 32-bit 
microprocessor manufactured by Motorola, such as the 680X0 or PowerPC 

5 processor or a microprocessor manufactured by Intel, such as the 80X86 or 
Pentium processor. However, any other suitable microprocessor or 
microcomputer may be utilized. Main memory 115 is comprised of dynamic 
random access memory (DRAM). About 32 megabytes of DRAM preferred. 
Video memory 114 is a dual-ported video random access memory. One port 

10 of the video memory 114 is coupled to video amplifier 116. The video 

amplifier 116 is used to drive the cathode ray tube (CRT) raster monitor 117. 
Video amplifier 116 is well known in the art and may be implemented by 
any suitable means. This circuitry converts pixel DATA stored in video 
memory 114 to a raster signal suitable for use by monitor 117. Monitor 117 

15 is a type of monitor suitable for displaying graphic images. 

The computer system described above is for purposes of example only. 
The present invention may be implemented in any type of computer system 
or programming or processing environment. When a general purpose 
computer system such as the one described executes the processes and 
20 process flows described herein, it is configured to dynamically broker object 
messages among object models. 
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□ 



Figure 2 provides a block diagram overview of an embodiment of the 
present invention. Mediating component 204 provides a bridge between 
objects implemented using object models. For example, mediating 
component 204 provides a bridge between system A 202 (which uses object 
5 model A) and system B 206 (which uses object model B). 

Systems A and B (202 and 206, respectively) provide a platform in 
which object models A and B operate. Systems A and B each may be a 
machine, process, client, or server. System A 202 can include operating 
system software such as the NEXTSTEP, or OPENSTEP framework that 
10 executes in the Mach operating system. System B is the Windows 
environment running in the DOS operating system, for example. 

Object model A can be a different object model than object model B. 
For example, object model A may be NeXT Software, Inc.'s Distributed Objefct 
(DO) model and object model B may be Microsoft, Inc.'s Object Linking and 
15 Embedding/Component Object Model (OLE/COM). 

Alternatively, object model A can be the same object model as object 
model B. In this case, mediating component 204 can act as a bridge in a 
network environment such that an object in an object model can be 
distributed across different machines. That is, the bridging capability of the 
20 present invention can be used to create a network version of an object 

model. The present invention can be used to allow a server object residing 
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in OLE/COM on a first machine to service a message generated by a client 
object that resides in OLE/COM on a second machine. 

Mediating component 204 provides a dynamic bridge between objects 
implemented using object models. Using the present invention, there is no 
need to define a static interface between objects and their object models. 
Mediating component 204 brokers a message by determining the interface 
requirements as each request arises during run-time. Thus, there is no need 
to generate and create a static messaging interface to define the 
communication between a client object and a server object. There is no need 
to write, compile and link IDLs each time that a new object class is added to 
an application. Mediating component 204 locates the server object to process 
the client's message. Mediating component 204 identifies the expected 
method specification and arguments for the server. Mediating component 
204 translates the client's message using information obtained about the 
server object. 

The message is sent by mediating component 204 to the server object. 
Mediating component 204 uses a distributed object model or protocol to 
forward the message to the server object. The distributed object model is 
preferably NeXTs DO. However, other distributed object models (e.g., 
CORBA or Microsoft's Network OLE or Distributed COM) can be used. 

Thus, for example, when a connection request is received in System 
A, mediating component 204 determines whether a server object in System 
B can service the message. For example, mediating component 204 queries 
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information available in object model B to determine whether a server 
object exists in that system and created in that model that can process the 
message using the arguments supplied by the client object. If a server object 
exists, mediating component 204 determines the method specification and 

5 the number and type of arguments expected by the server object. If 

necessary, mediating component 204 returns a proxy object to the requester. 
When a message is directed to the server object via the proxy object, 
mediating component 204 performs a mapping, or translation, of arguments 
for use by the server object. Mediating component 204 then immediately 

10 translates the message such that it can be understood by the server object, 
and forwards the translated information to the server object. In this way, the 
mediating component 204 carries ouTdynamic translation at run-time. 

Mediating component 204 provides a set of mappings between objects 
and object models. When a reterence is made by a client object for a server 

15 object, mediating component 204 manages a reference by a client object to a 
server object. In addition, if the server is a part of a network, mediating 
component 204 locates the server object by querying each of the plurality of 
servers running on the network. A reference to the server object is managed 
by mediating component 204. Thus, mediating component 204 provides a 

20 mapping between objects implemented using like or different object models. 
For example, mediating component 204 creates a proxy object and a stub 
object. The proxy object maintains a reference to the client object. The stub 
object maintains the reference to the server object. Mediating component 
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204 maps an association between a proxy object and the stub object. If the 
server object is found, the server object's calling format is returned to 
mediating component 204. Mediating component 204 uses the calling 
format information to translate the client object's message for use by the 
server object. 

Mediating component 204 can reside on either the client or the server 
and can run in a process (Le v a discrete address space) or in a single-process 
machine. Preferably, mediating component 204 resides on a computer that is 
running a windowing environment such as Microsoft Windows. That is, 
mediating component 204 can function with any operating environment 
having the ability to send and receive messages. Further, the functionality 
of mediating component 204 described with reference to objects can be 
implemented in an environment other than an object-oriented 
environment. 

Object messages can be sent in either direction between client and 
server. Thus, for example, an object message that originates in an object 
implemented using object model B in System B (System 206) is transmitted 
to and processed by a server object implemented using object model A in 
System A (System 202). A response can be sent between the server object in 
System A and the client object in System B (System 206). Similarly, a client 
object implemented using object model A in System A (System 202) 
generates a message that is sent to a server object implemented using object 
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model B in System B (System 206). A response that is generated by the 
server object in System B is transmitted to the client object in System A. 

Figures 3A-3C provide configurations for exemplary embodiments of 
the present invention. Referring to Figure 3A, mediating component 204 

5 resides on server machine 304. Server machine 304 is running, for example, 
a Visual C++ application program under Microsoft Windows and using 
OLE/COM as Object Model B. A client machine 302 is running, for example, 
an Objective-C application program using Object Model A in NeXT's 
NEXTSTEP 3.3 environment or OPENSTEP 4.0 for Windows NT using 

10 NeXT's D'OLE™ Distributed OLE software, Distributed Object (DO), or 
Portable Distributed Objects (PDO) object models. Client object 306 is 
implemented using Object Model A on client machine 302. Client object 306 
transmits a message directed to server object 308. Server object 308 is 
implemented using Object Model B on server machine 304. Machines 302 

15 and 304 may also be processes rather than physical machines. 

The message generated by client object 306 is directed to server object 
308 on server machine 304 (i.e., a remote object with respect to client object 
306). A mechanism is used by client machine 302 to forward the message to 
the remote object's machine (e.g., server 304). The forwarding mechanism 
20 is, for example, that used in NeXT Software Inc.'s DO system or the 

technology disclosed in United States Patent No. 5,481,721 entitled Method 
for Providing Automatic and Dynamic Translation of Object Oriented 
Programming Language-Based Message Passing into Operation System 
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Message Passing Using Proxy Objects and assigned to NeXT Software, Inc. In 
NeXT's DO, a proxy object 310 is used to represent the remote object (e.g., 
server object 308). By using proxy object 310, client object 306 does not need 
to obtain the actual location of server object 308. Client object 306 sends a 
message directed to server object 308 via proxy object 310 and connection 348. 
Proxy object 310 forwards the message to proxy object 314 on server 304 via 
transport layer 318. That is, proxy object sends the message to transport layer 
318 via connection 346. Transport layer 318 sends the message to proxy 
object 314 via connection 344. Transport layer 318 uses a mechanism for 
transporting the message to a remote machine such as, for example, 
Transmission Control Protocol/Internet Protocol (TCP/IP). Remote 
Procedure Calls, such as the RPC facilities of MS Windows NT, is another 
example of a mechanism that can be used to forward a message to a remote 
machine. 

ORB 312 runs on server machine 304. ORB 312 acts as a control 
module that receives a message initiated by a client and creates a dynamic 
mapping between the client and a server to enable transmission of messages. 
During execution, ORB 312 is capable of creating a dynamic messaging 
interface between two objects or processes using separate object models. 

When it is invoked, ORB 312 vends itself on the network. That is, 
ORB 312 registers on the network using a name or identifier. Other objects 
on the network can locate ORB 312 using its registered name. Client object 
306 connects to ORB 312 via its well known (or registered) name. Figures 
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8A-8B provide an example of a process flow for establishing a connection 
and generating a mapping between a client and server object according to an 
embodiment of the invention. 

At step 802, client object 306 connects to ORB 312 via its well known 
5 name. Client object 306 requests a connection to server object 308 at step 804. 
At step 806 (i.e., "server object exists?"), ORB 312 determines whether server 
object 308 is available on server machine 304. To identify a server object, for 
example, ORB 312 communicates with an interface repository or object 
database for each object model that resides on server machine 304 to locate 
10 server object 308. (Under MS OLE/COM, the object database is termed a 
COM server and is implemented as a .DLL or .EXE file.) If server object 308 
does not exist, ORB 312 can notify client object 306 at step 808, and processing 
ends for the current request at step 826. 

If ORB 312 determines (at step 806) that server object 308 does exist, 
15 processing continues at step 810 to examine mapping information for server 

object 308. ORB 312 stores mapping information from previous connections. 

The mapping information can be stored in one or more tables, for example. 

The mapping information includes an association between a proxy object 

and its related server object and the server object's stub object. For example, 
20 a mapping table entry for server object 308 contains a pointer to server object 

308, stub object 316 and proxy object 314. At step 810, ORB 312 examines the 

mapping information to determine whether a mapping entry exists for 

server object 308. 
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At step 812 (i.e., "mapping exists?"), if a mapping entry exists for 
server object 308, processing continues at step 814 to retrieve the pointer to 
the proxy object associated with server object 308 (e.g., proxy object 314 in 
Figure 3A). If it is determined (at step 812) that there is no mapping 
information for server object 308, processing continues at step 816 to create a 
proxy object for server object 308 (e.g., proxy object 314). 

At step 818 (i.e., "stub object exists?"), ORB 312 makes a determination 
whether stub object 316 exists for server object 308. If it does not exist, 
processing continues at step 820 to create stub object 316 and processing 
continues at step 822. If it does exist, processing continues at step 822. At 
step 822, ORB 312 creates an entry in the mapping table that identifies server 
object 308, proxy object 314, and server object 316. At step 824, ORB 312 
returns proxy object 314 to client object 306. Processing ends for the 
connection request at step 826. 

Thus, when a connection request is received from client object 306, 
ORB 312 establishes a connection between client object 306 and server object 
308. The connection between client object 306 and server object 308 is 
formed via proxy object 314 and stub object 316. Client object 306 can then 
send a message to server object 308 using the connection. When a request 
(e.g., a message from client object 306 to execute a method of an object created 
under the Microsoft Excel application program running in OLE /COM on 
server machine 304) is transmitted to server machine 304, ORB 312 
intercepts the message. The connection established between client object 306 
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and server object 308 by ORB 312 is used to transmit the message to server 
object 308. A response generated by server object 308 is sent to client object 
306 via the same connection. 

As illustrated in Figure 3A, the connection can be indirect and consist 
5 of multiple components and connections. Client object 306 is connected to 
proxy object 310 via connection 348. Connection 346 forms a connection 
between proxy object 310 and transport layer 318. The message is sent by 
transport layer 318 to server machine 304 and received by proxy object 314 
via connection 344. Proxy object sends the message to server stub 316 via 
10 342. Stub object 316 sends the message to server object 308 via connection 
340. 

Proxy object 314 and stub object 316 handle the message received from 
client object 306. For example, proxy object 314 receives a DO message sent by 
client object 306 via proxy object 310 and transport layer 318. Proxy object 314 

15 forwards the message to stub object 316. Stub object 316 translates the 
message and its arguments so that the arguments can be understood by 
server object 308 (e.g., an object created with Microsoft's Excel running in the 
OLE /COM object model). For example, stub object 316jranislates the 
message's operation into an operation identifier that is expected by server 

20 object 308. In addition, one or all of the message's arguments can be 

translated for server object 308. For example, if the server object is expecting 
an object as one of its arguments, stub object 316 can translate an argument 
contained in the message sent by client object 306 into this expected object. 
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Stub object 316 forwards the message to server object 308. Server 
object 308 processes the message (e.g., it executes a requested message) and 
returns a response to stub object 316. Stub object 316 performs argument 
translation for the response. The response is received by stub object 316 and 
5 forwarded to proxy object 314. Proxy object 314 translates the response using 
the protocol of object model A (the protocol of client object 306) and packages 
the response for transmittal across transport layer 318. The response is 
transmitted to proxy object 310 via transport layer 318. Proxy object 310 
forwards the response to client object 306. 

10 In Figure 3A, mediating component 204 resides on the server 

machine. Alternatively, mediating component 204 can reside on the client 
machine. Figure 3B provides a configuration example wherein mediating 
component 204 is resident on the client machine. The client machine 322 is 
using the OLE/COM object model under Microsoft Windows, for example. 

15 As described above, ORB 312 of mediating component 204 vends itself 

on the network. When a request is made, ORB 312 creates the proxy and/or 
stub object, if they don't already exist. In addition, ORB 312 monitors and 
intercepts messages. A connection can be established between client object 
308 and server object 306 using the process flow exemplified in Figures 

20 8A-8B, for example. When client object 308 transmits a request to server 
object 306, ORB 312 intercepts the message. 
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As in Figure 3A, the connection between the client and server objects 
uses one or more connections and components. Client object 308 is 
connection to server object 306 via proxy object 314, stub object 316, transport 
layer 318 and proxy object 310 using connections 352, 342, 350, 346, and 348. 

In some instances, a client object may query whether a server object 
can respond to a request before the client object actually sends the request. In 
this case, mediating component 204 responds in the affirmative. That is, if 
client object 308 sends a query message initially, mediating component 204 
responds by indicating that it is able to respond to the request. In so doing, 
mediating component 204 can eliminate the need to send the initial message 
across to the server and wait for a response. It is only necessary to transmit 
the request to the server. When client object 308 receives the affirmative 
response, it packages its request and arguments into a message using the 
protocol specified for object model B. Client object 308 sends the message to 
proxy object 314. 

When the message is received, the proxy object 314 translates the 
message using the protocol specified by object model A. Proxy object 314 
forwards the message to stub object 316. For example, proxy object 314 
attempts to invoke the message and is also unable to perform the requested 
operation. As a result, proxy object 314 faults and forwards the message to 
stub object 316. Stub object 316 translates the arguments, if necessary, to 
correspond to the type of arguments expected by server object 306. Stub 
object 316 is unable to service the request. Stub object 316 packages the 
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message for transmittal over transport layer 318 to proxy object 310 on server 
machine 324. 

Upon receipt, proxy object 310 discards the transport layer packaging, 
and forwards the message to server object 306. Server object 306 services the 

5 request and returns its response using the messaging protocol of Object 
Model A. Server object 306 sends the message to proxy object 310. Proxy 
object 310 packages the response for transmittal across transport layer 318 to 
client machine 322. The response is received from transport layer 318 by stub 
object 316. Stub object 316 strips the transport layer packaging off the 

10 response. Using the mapping retained by ORB 312, the response is returned 
from stub object 316 to proxy object 314. Proxy object 314 translates the 
response using the messaging protocol of Object Model B. The return value 
is returned by proxy object 314 to client object 308. 

The previous configuration examples in Figures 3A and 3B use an 
15 mediating component 204 on either the client or server machine. It is also 
possible for mediating component 204 to reside on both the client and server 
machines. Figure 3C provides a configuration example wherein both the 
client and server machines include an mediating component. 

The connection between the client object 308C and server object 306S 
20 is formed indirectly using multiple connections and components. Client 
object 308C connected to proxy object 314C via connection 370. Proxy object 
314C is connected to stub object 316C via connection 368. Stub object 316C is 
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connected to transport layer 318 via connection 366. Transport layer is 
connected via connection 364 to proxy object 314S. Proxy object 314S is 
connected to stub object 316S via connection 362. Stub object 316S is 
connected via connection 360 to server object 306S. 

Referring to Figure 3C, client machine 332 and server machine 334 are 
both using Object Model B. However, Object Model B on client machine 332 
does not have the ability to forward a message to Object Model B on server 
machine 334, and vice versa. That is, Object Model B does not have 
distributed object capability; it can not forward messages between objects that 
reside on different machines. 

Using the configuration illustrated in Figure 3C, for example, the 
present invention can be used to act as a bridge between instances of the 
same object model that reside on different machines. Thus, a 
non-distributed, non-networked object model can become a distributed, 
networked object model using the present invention. 

Referring to Figure 3C, client and server machines 332 and 334 are 
running Microsoft's Windows NT operating system which uses 
non-distributed OLE /COM, for example. The communication protocol used 
between mediating components 204C and 204S is a distributed object model 
such as NeXT's DO, for example. Client object 308C is executing on client 
machine 332. Server object 306S is executing on server machine 334. ORB 
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312C creates and manages proxy object 314C and stub object 316C. Similarly, 
ORB 312S creates and manages proxy object 314S and stub object 316S. 

Client object 308C can forward a request to server object 306S via 
mediating components 204C and 204S. Client object 308C sends an initial 
query to determine whether its request can be processed. ORB 312C 
intercepts the message. ORB 312C responds to the query by stating that it can 
service the request. When the affirmative response is received by client 
object 308C, it packages its request and any arguments using Object Model B r s 
messaging format. 

Client object 308C sends the message which is intercepted by ORB 312C 
and processed by proxy object 314C Since the message is intended for a 
server object in a like object model (i.e., server object 306S running in Object 
Model B), there is no need for proxy object 314C to translate the message into 
the server object's object model. However, it may be necessary to translate 
the arguments to accommodate the argument expectations of server object 
306S as described above. Argument translation can be performed by 
mediating component 204C or 204S. 

Proxy object 314C forwards the message to stub object 316C. Stub object 
316C packages the message for transmittal to server machine 334 via 
transport layer 318. The message is intercepted by ORB 204S on server 
machine 334. Proxy object 314S strips off the transport layer packaging and 
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forwards the message to stub object 316S. Stub object 316S forwards the 
message to server object 306S. 

Server object 306S processes the message and forwards a response to 
stub object 316S. The message is forwarded to client object 308C via proxy 
object 314S, transport layer 318, stub object 316C and proxy object 314C. 
Argument translation can be performed on either client machine 332 by 
mediating component 204C or on the server machine 334 by mediating 
component 204S. 

Thus, as described above, the mediating component of the present 
invention acts as a bridge between objects implemented using like or 
different object models. An mediating component can act as a bridge 
between two objects implemented using two instances of the same object 
model running on different machines. The invention enables the 
distribution of objects such as OLE Automation objects. An mediating 
component can reside on either the server machine, the client machine, or 
both. 

Server-Side Bridge 

The bridging capabilities of the present invention can be implemented 
on the server machine. In one example, the server machine is running MS 
Excel software under the MS Windows operating system. The server 
machine is using the non-distributed OLE/COM object model. The bridging 
capabilities can be implemented as an executable file (.EXE) or dynamic link 
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library (.DLL) in the Windows environment, for example. A client object 
executing on a client machine generates a request for processing by the MS 
Excel instance running on the server machine. The client machine is 
running NEXTSTEP or OPENSTEP using NeXT's DO object model with 
D'OLE or PDO. Figures 4A-4C provide a process flow for brokering object 
messages between NeXT's object model on a client machine and the 
OLE/COM on a server machine. 

Referring to Figures 4A-4C, the client establishes a connection with 
the client proxy on the client machine at step 402. The connection can occur 
as a consequence of some user action, or on startup, for example. At step 404, 
the client sends a message directed to a remote server. 

At step 406, the client proxy intercepts the message. Because the client 
proxy is unable to respond to the message, it enters a fault state. As a result 
of the fault state, the client proxy packages the message and forwards it via a 
transport layer to the server proxy object at step 408. At step 410, the server 
proxy object receives the message and strips off the transport layer packaging. 

At step 412, the server proxy object sends the message to the stub 
object. The server stub attempts to perform the operation specified in the 
message and enters a fault state at step 414. At step 416, the server stub object 
queries the server object model for method and argument information of a 
server object. 
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At step 418 (i.e., "can server object respond to message?"), the server 
stub object determines whether the server object to which the message is 
directed is capable of responding to the message. For example, the server 
stub object invokes a GetlDsofNames routine to determine whether the 
specified method is a valid method of the server object. The 
GetlDsOfNames method converts text names of properties and methods into 
a corresponding set of dispIDs that uniquely identify a method and 
arguments. If the method or arguments are invalid (e.g., there is no dispID 
for a specified method or argument), the server stub object raises an error 
response at step 420 and processing continues at step 428 to forward the 
response to the client object. 

If it is determined that the server object can respond (i.e., the test of 
step 418 is affirmative), processing continues at step 422 to translate the 
arguments for the receiving object model (i.e., the server object's object 
model). For example, an OLE /COM data structure is created and the 
arguments are stored in the data structure. In addition, the server stub object 
can convert an argument from its original type to one expected by the server 
object. For example, if the server object expects an object as an argument but 
the client specified a non-object value, the server stub converts the 
argument to an object. Similarly, a numeric argument can be converted to a 
string, for example. 

At step 424, the client object's message is invoked on the server object. 
For example, to invoke a method using an object in the OLE/ COM object 
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model the Invoke method is called on the COM server object specifying the 
DispID as an argument. The arguments are retrieved from the OLE/COM 
data structure. The method is identified by specifying the method's 
identifier (DispID). 

At step 426, the server stub waits for a response generated from the 
method invoked in the server object. At step 428, the server stub translates 
the response. The response can be a response received from the method 
processing, or from an error condition raised during processing, for example. 
The response is packaged and transmitted across the transport layer to the 
proxy object on the client machine at step 430. At step 432, the message is 
unpackaged by the client proxy object and returned to the client object. 
Processing ends at step 434. 

Client-Side Bridee 

The bridging capabilities of the present invention can be implemented 
on the client machine. In one example, the client machine is running MS 
Word in the Windows environment. The client machine is using the 
OLE /COM object model. An object created (instantiated) by MS Word 
generates a message request to print a document on a PostScript printer on a 
server machine. The server machine is running NEXTSTEP or OPENSTEP 
using NeXT's DO object model with D'OLE or PDO. Figures 5A-5C provide a 
process flow for brokering object messages between the OLE/ COM object 
model on a client machine and NeXT's object model on a server machine. 
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At step 502, the ORB creates the proxy object on the client machine. 
The ORB can create the proxy object as a result of a request from a client 
object, for example. At step 504, the client object queries the proxy object to 
determine whether it can process the client object's request. As previously 
described, the OLE Automation mechanism uses a two message approach. A 
first message from the client object queries the server object for a dispID. 
That is, the client object sends a GetlDsOfNames to identify the dispID of the 
method. In the prior art, the server object responds by either sending a 
dispID (if the method identified by the sender is valid), or by sending an 
error (if an invalid method is specified by the client object). If a dispID is 
returned, the client object sends a second message to server object using the 
dispID of the method. 

In addition to the messaging load on the network, this approach 
requires that the communication between a client and server be permitted 
only after a method is identified. Thus, if the client object wishes to invoke 
another method on the server object, it must use the two message approach 
to identify a new dispID. Further, if a new method is added by the server 
object, a new proxy and stub implementation must be established between 
the client and server objects. 

In contrast, the invention uses a technique that allows a client object 
to send a message of which the server object has no knowledge. The server 
object can add new methods without any change being made on the client 
side. When the client object sends a GetlDsOfNames message to obtain the 
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dispID for a method of the server object, the invention dynamically creates a 
unique ID for the requested method, if one doesn't already exist. The 
invention uses this ID to respond to the client object's first message. The 
response includes the unique ID. In so doing, the invention indicates that a 
server object is able to perform the desired method (i.e., the invention 
responds affirmatively to the client object's first message). This unique ID is 
retained along with the name of the requested method. The unique ID is 
used to invoke to query the server for the requested method when the client 
object sends a second, invocation message. 

Thus, when the proxy object receives the message sent by the client 
object in step 506, it returns an affirmative response that indicates that the 
client object's request can be processed. The response includes the unique ID 
to identify the method which the ORB retains to identify the message when 
the client invokes it. The client object creates a message (e.g., operation 
specification and arguments) that includes the tag using the OLE /COM 
message protocol at step 508. At step 510, the proxy object translates the 
client object's message for use on the server machine's object model (e.g., 
NeXT DO). 

At step 512, the message is invoked on the proxy object previously set 
up by the ORB. The proxy object is unable to perform the specified operation 
and faults at step 514. At step 516, the proxy object forwards the message to 
the stub object. The stub object attempts to perform the message's operation 
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and faults at step 518. At step 520, the stub object packages the message and 
forwards the message via the transport layer to the server machine. 

The proxy object receives the message and strips off the transport 
layer's message packaging at step 522. The server proxy object forwards the 
message to the server object at step 524. The server proxy object waits for a 
response from the server object at step 526. At step 528, the response sent by 
the server object is translated for transmittal via the transport layer by the 
server's proxy object. The message is transmitted via the transport layer to 
the client's stub object at step 530. At step 532, the stub object strips off the 
transport layer packaging and forwards the message to the client machine's 
proxy object. At step 534, the proxy object translates the message using the 
client object's object model and returns the response to the client object. 
Processing ends at step 536. 

Client and Server Bridge 

The bridging capabilities of the present invention can be implemented 
on both the client and server machines. Using the present invention, a 
non-networked object model (e.g., OLE/COM) can communicate across 
machines. In one example, both the server and client machines are running 
the MS Windows environment and using the OLE/COM object model. A 
client object created (instantiated) by MS Excel on the client machine 
generates a request message for processing by an object instantiated by the 
MS Word application program running on the server machine. Using the 
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present invention, the Excel object can send a message to the MS Word 
object on another machine. Figures 6A-6C provide a process flow for 
brokering object messages between OLE Automation objects running on 
different machines. 

At step 602, ORBs on the server and client machines are created. 
Client and server proxies are established by the ORBs. The ORBs monitor 
for messages and intercept messages from a client object to a server object. 
Steps 604 and 606 correspond to steps 504 and 506 of Figure 5A. At step 604, 
the client object queries the proxy object (e.g., GetlDsOfNames) to determine 
whether it can process the client object's request The proxy object responds 
in the affirmative and includes a unique ID for the method at step 606. In so 
doing, the invention provides a mechanism that allows a client object to 
send a message to a server object that the server object is previously 
unaware. The server object can add new methods without any change being 
made to the client object. As far as the client object is concerned, the unique 
ID sent by the proxy object is the dispID of the actual method in the server 
object. 

The client object creates a message (e.g., operation specification and 
arguments) including the tag and using the OLE/COM message protocol at 
step 608. At step 610, the proxy object translates the client object's message. 
There is no need to translate the message from one object model protocol to 
another since both client and server objects are using the same object model. 
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However, the proxy object can translate arguments into the types that are 
expected by the server object, if that is required. 

At step 612, the message is invoked on the proxy object. The proxy 
object is unable to perform the specified operation and faults at step 614. At 
step 616, the proxy object forwards the message to the stub object. The stub 
object attempts to perform the message's operation and faults at step 618. At 
step 620, the stub object packages the message and forwards the message via 
the transport layer to the server machine. 

The message is received by the proxy object on the server machine 
and strips off the transport layer's message packaging at step 622. The server 
proxy object forwards the message to the stub object which in turn forwards 
the message to the server object at step 624. The server proxy object waits for 
a response from the server object at step 626. At step 628, the stub object 
forwards the response to the proxy object. The proxy object packages the 
response and forwards it to the client machine via the transport layer at step 
630. At step 632, the stub object strips off the transport layer packaging and 
returns the response to the client machine's proxy object. At step 634, the 
proxy object translates the response (e.g., returns a value translation) and 
returns the response to the client object. Processing ends at step 636. 

Argument Translation 

The invention allows an object to communicate with another object 
regardless of the object models used to implement the objects. A message 
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sent by an object implemented using one object model can contain 
arguments that are used by another object that is implemented using a 
second object model. Each argument has a type (e.g., numeric, string, and 
object). The argument types used by the sending object may be incompatible 
with those used by the receiving object. The invention provides a 
mechanism to translate these incompatible argument types. 

In the NEXTSTEP or OPENSTEP environment, arguments can be 
passed as a value or an object, for example. Examples of the types associated 
with a value are short, long, integer, and float. An argument can be an 
object such as the NSString object type, or class. NSString that includes 
string functionality is one example of an object class supported by 
NEXTSTEP and OPENSTEP. An argument can be an object that is an 
instance of any of the object classes supported by NEXTSTEP and OPENSTEP. 

In a Windows environment, an argument can be a value of type 
short, long, integer, float and double, for example. In addition, the 
OLE/COM object model supports types such as OLE String and OLE 
Automation. An OLE String type is used for arguments of type string. 

OLE Automation is a subset of OLE/COM that is used to dynamically 
invoke methods that manipulate the contents of scriptable objects. OLE 
Automation provides classes of objects that include automation servers, 
automation controllers, collection, application, document, documents, and 
font referred to herein as OLE Automation objects. 
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As indicated in the discussion above, there are some argument types 
that can be passed between two environments without translation. 
However, some argument types are unique to, or incompatible with, the 
argument types of another environment. Therefore, a translation 
mechanism is needed to allow arguments to pass between the 
environments. 

The translation mechanism of the invention is implemented in the 
mediating component. Referring to Figures 3A-3C, for example, the 
translation mechanism is implemented in mediating component 204, 204C, 
and 204S. The translation can be performed in either the proxy or stub 
objects. If delayed stack creation is used, argument translation is optimally 
performed by the last intervening object (e.g., stub object 316 for server object 
308 or stub object 316 for server object 306). 

The translation mechanism processes each argument in a message 
and a response. The type that is given by the sending object and the type 
expected by the receiving object are compared. If the types are incompatible, 
a translation is performed to convert the sending type to the receiving type. 
The following functionality can be used to translate arguments having 
unique, or incompatible, types between the NEXTSTEP /OPENSTEP and 
Windows (or OLE) environments. It should be apparent that the translation 
mechanism can be adapted for use between any two environments. An 
example of program code that implements argument translation between 
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the NEXTSTEP /OPENSTEP and OLE environments is provided in the 
section entitled "Translation Code Examples". 

NHRYTSTF.P /OPF.NSTEP to OLE 

The NEXTSTEP /OPENSTEP environment includes object classes such 
as NSString that are incompatible with a Windows object class. Numeric 
argument types can be passed without translation. Therefore, a translation is 
needed for certain argument types used in the NEXTSTEP /OPENSTEP before 
the arguments can be passed to the Windows environment. Figure 7 A 
provides an example of a process flow for translating argument types from 
the NEXTSTEP /OPENSTEP environment to the Windows environment 
according to an embodiment of the invention. The process flow of Figure 
7 A is performed for each argument in a client object's message or any return 
values contained in a server object's response. 

At step 702 ("argument is in the form of an object?), a determination 
is made whether the argument is an object. If it is not an object, the value is 
passed to the object running in the NEXTSTEP /OPENSTEP environment as 
a value. That is, there is no need to translate the argument, and the 
translation processing for that argument ends at step 712. 

If it is determined that the argument is in the form of an object (an 
affirmative determination is made at step 702), processing continues at step 
706 to identify the object's type, or class. At step 706 ("NSString object?"), a 
determination is made whether the object is an NSString object. If it is 
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determined that the object is of class NSString, processing continues at step 
708 to convert the argument to an OLE string type argument, and processing 
ends for the current argument at step 712. If it is determined that the 
argument is not an NSString object (at step 706), processing continues at step 
5 710 to generate a proxy object for the object. The proxy object can be used to 
transmit message to and from the object argument, for example. The 
current argument's translation processing ends at step 712. 

QLE to NEXTSTEP / OPENSTEP 

The Windows environment includes object classes such as the OLE 
10 Automation object classes that are unique to that environment. Therefore, a 
translation mechanism is needed before these arguments can be passed to 
the NEXTSTEP /OPENSTEP environment from the Windows environment. 
Figure 7B provides an example of a process flow for translating argument 
types from the Windows environment to the NEXTSTEP /OPENSTEP 
15 environment according to an embodiment of the invention. The process 
flow of Figure 7B is performed for each argument in a client object's message 
or any return values contained in a server object's response. 

At step 732 ("argument is an OLE string?"), a determination is made 
whether the current argument is an OLE string. If so, processing continues 
20 at step 734 to convert the argument to an NSString object. For example, an 
instance of the NSString object class is instantiated and the string value is 
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stored in a property of the NSString object instance. Processing then ends for 
the current argument at step 746. 

If it is determined (at step 732) that the argument is not an OLE string, 
processing continues at step 736. At step 736 ("NULL value?"), a 
determination is made whether the value of the argument is set to NULL. If 
it is, processing continues at step 738 to set the value of the argument to zero 
and processing ends for the current argument at step 746. If not, processing 
continues at step 740 ("OLE Automation object?") to determine whether the 
argument is in the form of an OLE Automation object. If the argument is an 
OLE Automation object, processing continues at step 742 to create a proxy for 
the OLE Automation object. The proxy can be used to communicate with 
the OLE Automation object. Translation processing for the current 
argument ends at step 746. 

If it is determined at step 740 that the argument is not an OLE 
Automation object, processing continues at step 744 to process a numeric 
argument value. At step 744, an NSNumber object is created and the 
numeric value is stored in a property of the object. Translation processing 
ends for the current argument at step 746. 

Delayed Stark Creation 

When an object processes a message, it retrieves the method and 
arguments from the message and pushes the arguments on a stack. This is 
referred to as unraveling the message. The object then invokes the method. 
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In an environment where the message is sent from a client object to a server 
object via one or more intervening objects, it is unnecessary for each 
intervening object to unravel the message when the method is intended for 
another object and the intervening object is incapable of performing the 
requested operation. When the intervening object is unable to perform the 
requested operation after unraveling the message, it repackages the method 
and arguments and sends the message to the next object. This is unnecessary 
and inefficient. Thus, the invention optimizes processing of a message by an 
intervening object by delaying the method and argument retrieval and stack 
creation until he message is received by an object that is capable of 
performing the requested operation. 

The invention optimizes the message transmission by eliminating 
the need to unravel the message at each intervening point. Referring to 
Figure 3A, for example, it is unnecessary for borh proxy object 314 and stub 
object 316 to unravel the message sent from client machine 302. 

The invention waits until the message is received by the last 
intervening object (e.g., the server object's stub object) before the message is 
unraveled. Thus, for example, the message is not unraveled until it is 
received by stub object 316 in Figure 3A. When proxy object 314 receives the 
message from client object 306, it passes the message to stub object 316. Proxy 
object 314 does not unravel the message. 
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Figure 9 provides an example of a delayed stack creation process flow 
according to an embodiment of the invention. At step 902, an object (e.g., 
proxy object 314) receives a message. At step 904 (i.e., "last intervening 
object?"), the object determines whether it is the last intervening object (e.g., 
stub object 316). If not, the object transmits the message to the next object at 
step 914 and processing for the current object ends at step 918. That is, if the 
object is not the last intervening object, it acts as a conduit for the message. It 
sends the message to the next object without unraveling the message. It 
does not build an argument stack or attempt to perform the operation 
specified by the message, for example. 

If, at step 904, the object determines that it is the last intervening 
object, processing continues at step 906. The message is unraveled at step 
906. The object retrieves the method and arguments from the message. At 
step 908, interface information is retrieved for the server object (e.g., server 
object 308). The interface information can be retrieved from an interface 
repository such as a COM server in MS OLE/COM, for example. 

At step 910 (i.e., "argument translation needed?"), the object 
determines whether any argument translation is needed. If so, processing 
continues at step 912 to translate an argument. Processing then continues at 
step 910 to process any remaining arguments. If it is determined at step 910 
that no argument translation is needed (or is completed), processing 
continues at step 916 to forward the message to the server object. At step 918, 
processing ends for the current message. 
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As illustrated in Figure 9, an intervening object acts as a conduit 
sending the message to the next intervening object without unraveling the 
message. The last intervening object unravels the message and performs 
any necessary argument translation. Unnecessary message processing is 
5 therefore avoided and message transmission is optimized. 



Translation Code Examples 

The following provides code examples that translate arguments 
between the OLE (or Windows) and NEXTSTEP/OPENSTEP environments. 



QLE to NEXTSTEP /OPENSTEP 

10 #import <winnt-pdo.h> 

/ /#include <next_conunon_defines.h> 

#import <ole2.h> 

#import <oleauto.h> 

//#include <next__common_undefines.h> 

15 

#ifdef _GNUC_ 
#ifdef alloca 
#undef alloca 
#endif 

20 

#define alloca _builtin_alloca 
#endif 

#import <foundation/NSMethodSignature.h> 
25 #import <foundation/NSInvocation.h> 
#import <foundation/NSString.h> 
^import <objc/Object.h> 

#import <objc/Protocol.h> /* for objc_method_description */ 

#import <foundation/NSException.h> 
30 #import <Foundation/NSValue.h> 

#import <Foundation/NSAutoreleasePool.h> 
#import <Foundation/NSData.h> 

#import <remote/NXProxy.h> 
35 #import <remote/NXMethodSignature.h> 
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#import <ole-header-fixes.h> /* For unnamed structures in the Microsoft header files. */ 

#import "INSObjectProxy.h" 
5 #import "NSIDispatch.h" 
#import "NSOLEBridge.h" 

#import <Foundation/NSAutoreleasePool.h> 

#define NS_POOL { id pool = [NSAutoreleasePool new]; do { { 

10 #define NS_POPPOOL [ pool release] 

#define NS_ENDPOOL }} while (0); [ pool release]; } 

y, #define NS_VALRETURN(X) NS_VALUERETURN(X, typeof(X)) 

m 15 VARTYPE NSConvertTo VARTYPE(V ARIANTARG *varArg, const char* thelnf o, 
"1 VARIANT ARG *); 

l x ©interface NSString (wchar_extensions) 

j Z + stringWithWCString:(wchar_t*)string; 

;JJ 20 -(void)getWCStxing^d\arJ:*)string; 
©end 



MtException(EXCEPINFO* exceplnfo, UINT errCode, const char* source, const char* 
25 description) 

wchar__t *wDescription; 
wchar __t *wSource; 

unsigned int dSize = (strlen(description) * sizeof (wchar_t)) + sizeof(wchar_t); 
30 unsigned int sSize = (strlen(source) * sizeof(wchar_t)) + sizeof (wchar_t); 
unsigned int dLength = strlen(description); 
unsigned int sLength = strlen(source); 

if (lexceplnfo) 
35 return; 

memset (exceplnfo, 0, sizeof (EXCEPINFO)); 

/* The sizes calculated above should be for wide strings. 
40 Note that we can't simply */ 

/* add a 1 for the null character, instead we have 

to add sizeof (wcharj). */ 
wDescription = (wchar _t*)malloc(dSize); 
wSource = (wchar_t*)malloc(sSize); 

45 

/* Convert the char*s to wide strings. */ 

MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, description, dLength 4- 1, 
wDescription, dLength + 1); 
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MultiByteToWideChar(CP_ACP, MB.PRECOMPOSED, source, sLength + 1, 
wSource, sLength + 1); 

/* Fill in the EXECPINFO structure. */ 
excepInfo->wCode = errCode; 
excepInfo->wReserved - 0; 
excepInfo->bstrSource = SysAllocString(wSource); 
excepInfo->bstrDescription = SysAllocString(wDescription); 
excepInfo->dwHelpContext = 0; 
excepInfo->pvReserved = NULL; 

/* Free our strings that we allocated. */ 

free(wDescription); 

free(wSource); 

} 



/* Given the information to IDispatch: :GetIDsOfNames(), return */ 
/* the selector. */ 

static _stdcall _RPC_FAR HRESULT 
COMNSObjectProxyJ3etIDsOfNames( 

COMNSObjectProxy *this / 

REFHD riid, 

LPOLESTR *rgszNames, 
UINT cNames, 
LCID kid, 
DISPID *rgdispid) 

{ 

HRESULT returnValue = S_OK; 
NSJPOOL 

/* The only thing of note here is that it appears that the names in */ 
/* the rgszNames string are UNICODE strings. For convenience I'm */ 
/* using the NSString stringWithCharacters: method which handles */ 
/* Unicode strings. */ 
while(cNames-) 

{ 

SEL selector; 

NSString* name = [NSString stringWithCharacters: rgszNames[cNames] 
length: wcslen(rgszNames[cNames])]; 

// 

// Make "sendMsg" a special case-insensitive case. 
// 

if ([name caseInsensitiveCompare:@ n sendMsg"] == NSOrderedSame) 
rgdispid[cNames] = (DISPID)@selector(sendMsg); 
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continue; 

} 



// 

5 / / "_NewEnum" and "value" are special cases which we need to 

/ / map case-insensitively because they don't nessecarily appear direcly 
//in program text, but are referenced from "OLE Engines" directly. 

// 

else if ([name caseInsensitiveCompare:@"_NewEnum"] == NSOrderedSame) 
10 { 

rgdispid[cNames] = DISPID_NEWENUM; 
continue; 

H } 

L .. 

Q 15 // 

**J // Make "value" a special case-insensitive case. 

H II 

\<k else if ([name caseInsensitiveCompare:@"value"] == NSOrderedSame) 

ill { 

i« 20 rgdispidfcNames] = DISPID_VALUE; 

continue; 

} 



/* We just get the string and make sure it's registered with the */ 
25 /* runtime so that when we ask for the selector in the objc_jnvoke * / 

/* function we get a valid selector back. */ 
selector = sel_registerName(NXUniqueString ([name cString])); 

if(selector == 0) 
30 { 

/* Shouldn't fall into here since sel_registerName should */ 
/* register a name if not already registered, but in case */ 
/* we ever do, just return a resonable error for the */ 
/* names that caused a failure. */ 
35 rgdispid[cNames] = DISPID^UNKNOWN; 

returnValue = DISP^UNKNOWNNAME; 

} 

else 

{ 

40 /* Otherwise, we take (safely) the address of the selector */ 

/* returned to us and use that as the id! */ 
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rgdispid[cNames] = (DISPID)((char*)selector - (char 5f )0); 

} 



NSJENDPOOL; 
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return returnValue; 



5 NSValue* 

convert _to jnsvalue( VARIANT* var ) 

{ 

switch( var->vt ) 
{ 

10 case VTJ2: 

return [NSNumber numberWithShort: var~>iVai]; 
case VTJ4: 

return [NSNumber numberWithLong: var->lVal]; 
case VT JEW: 

15 return [NSNumber numberWithFloat: var->fltVal]; 



case VT_R8: 

y return [NSNumber numberWithDouble: var->dblVal]; 

\ * case VTJBOOL: 

:t return [NSNumber numberWithBool: var->bool]; 

Wl 20 case VTJ3STR: 

& { 

s id object = [NSString strmgWithCharacters:var->bstrVal length:wcslen(var->bstrVal)]; 

O return [NSValue value: (void*)&object withObjCType:"®"]; 

fy break; 

case VT.NULL: 
{ 

break; 

} 

30 case VT_DISPATCH: 

case VTJJNKNOWN: 

{ 

id oleProxy; 

35 if(oleProxy = [NSOLEBridge proxyForOLEObject: var->punkVal]) 

{ 

return [NSValue value: (void*)&oleProxy withObjCType:"®"]; 

} 

40 break; 
} 



default: 
break; 



} 

45 return 0; 



HRESULT 
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convert_for_return (NSValue *val, VARIANT *ret) 
{ 

wchar_t* wStr Value; 

switch (*[val objCType]) { 
case '@': 
case '#': 
{ 

id object; 

object = [val nonretainedObjectValue]; 

if ([object isProxy] I i ![object isKindOfClass:[NSString class]]) 
{ 

ret->pdispVal = (IDispatch*) [NSOLEBridge proxyForOBJCObject:object]; 
ret->vt = VT_DISPATCH; 
return S_OK; 

1 

wStrValue = (wchar_t*)alloca (sizeof (wchar_t) * [object length] + sizeof(wchar_t)); 
[object getWCString:wStrValue]; 

ret->bstrVal = SysAllocString(wStrValue); 
ret->vt = VT_BSTR; 

return S_OK; 

} 



{ 

unsigned int length; 
char *stringValue; 

[val getValue: (void*)&stringValue]; 

length = strlen(stringValue); 

wStrValue = (wchar_t*)alloca((length * sizeof(wchar_t)) + sizeof(wchar _t)); 

MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, stringValue, length + 1, 
wStrValue, length + 1); 



ret->bstrVal = SysAllocString(wStr Value); 
ret->vt = VTJ3STR; 

return S_OK; 

} 
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case 's': 
case 'S': 

ret->vt = VT J2; 

[val getValue:&ret->iVal]; 

return S_OK; 

case T: 
case T: 
case T: 
case 'L': 

ret->vt = VTJ4; 

[val getValue:&ret->lVal]; 

return S_OK; 

case T: 
re t->vt = VT_R4; 
[val getValue:&ret->fltVal]; 
return S_OK; 

case 'd': 
ret->vt = VT_R8; 
[val getValue:&ret->dblVal]; 
return S_OK; 

case *c f : 
case 'C: 
{ char c; 

[val getValue:&c]; 
ret->vt = VTJ2; 

ret->iVal = c; 
return S.OK; } 

default: 
return 0; 

} 



static _stdcall HRESULT _RPC JFAR 
^XX_COMNSObjectProxy_Invoke(COMNSObjectProxy *this, 

DISPID dispidMember, 

REFIID riid, 

LCID kid, 

WORDwFlags, 

DISPP ARAMS *pdispparams, 

VARIANT *pvarResult, 

EXCEPMFO *pexcepinfo, 

UINT *puArgErr) 
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{ 

HRESULT returnValue = S_OK; 
char* buffer; 
SEL selector; 

NSMethodSignature *methodSignature = 0; 
NSString* realMessage; 
SEL realSelector; 

unsigned int numberOflgnoredArgs = 0; 
BOOL isDistributedOLE = NO; 

realSelector = (SEL)dispidMember; 

if (dispidMember == DISPID_NEWENUM) 

debugPrint ([NSString stringWithFormat:@"{OLE->DO@0x%x}._NewEnum(...)]" / this]); 
else if (dispidMember == DISPID.VALUE) 

debugPrint ([NSString stringWithFormat:@"{OLE->DO@0x%x}.Value(...)]", this]); 
else if (sel_isMapped (realSelector)) 

debugPrint ([NSString stringWithFormat:@"{OLE->DO@0x%x}.%s(...)]", this, realSelector]); 
else 

debugPrint ([NSString stringWithFormat:@"{OLE->DO@0x%x}.**ILLEGAL**(...)]" / this]); 



// 

/ / Get IEnumVARIANT when _NewEnum is called. 

// 

if (dispidMember == DISPID_NEWENUM 
&& pvarResult != 0 

&& (wFlags & (DISPATCH_PROPERTYGET I DISPATCH_METHOD)) != 0) 

{ 

IEnumVARIANT *var = 0; 

// 

// Get hold of the NSEnumerator, and use AllocINSEnumVARIANT 
/ / from insenum.m to translate it into an IEnumVARIANT interface 

// 

NSJDURING 

if (AllocINSEnumVARIANT (this->target, &var) != S_OK) 
var = 0; 
NS_HANDLER 

var = 0; 
NSJENDHANDLER; 

if (var = 0) 
{ 

// 

/ / Weither there was an exception or not--make it simple 
/ / and say that we don't support enumerations. 

// 
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return DISP_E_MEMBERNOTFOUND; 

} 

// 

/ / Return the new iteratior object 

// 

Variantlnit (pvarResult); 
pvarResult->vt = VT_UNKNOWN; 
pvarResult->punkVal = (IUnknown*)var; 

return S_OK; 

} 



if (dispidMember != DISPID_VALUE && !sel_isMapped (realSelector)) 

{ InitException (pexcepinfo, 1000, "NSOLEBridge Server", 

"bad DISPID passed in (OLE error)"); 
return DISP_E_EXCEPTION; 

} 

if (wFlags & DISPATCH_PROPERTYPUT) 

{ 

if (pdispparams->cArgs != 1) 
return (DISP_E_BADPARAMCOUNT); 

if (methodSignature = [this->target 
methodSignatureForSelector:@selector(setOLEPropertyNamed:to:)]) 

{ 

NSValue* val; 

val = convert_to_nsvalue( &(pdispparams->rgvarg[0]) ); 
if (dispidMember == DISPID_VALUE) 

[this->target setOLEPropertyNamed:@"Value" to:val]; 

else 

[this->target setOLEPropertyNamed: [NSString stringWithCString:sel_getName 
(realSelector)] 

to: val]; 

} 

else 

InitException (pexcepinfo, 1000, "NSOLEBridge Server", "object does not support 
setting properties"); 

return DISP_E_EXCEFTION; 

} 

} 

if ((wFlags & DISPATCHJPROPERTYGET) && (pdispparams->cArgs — 0)) 
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if ( this->target 

&& (DISPID)realSelector != DISPIDVALUE 
&& (wFlags & DISPATCH_METHOD)) 

{ 

NS.DURING 

methodSignature = [this->target methodSignatureForSelector: realSelector]; 

} 

NS.HANDLER 
{ 

/* we don't care if this fails */ 

} 

NS_ENDHANDLER; 

} 

if (ImethodSignature I I (DISPID)realSelector == DISPID_VALUE) 
{ 

NSValue *val; 

if (this-> target == nil) 
{ 

pvarResult->vt = VT_BOOL; 
pvarResult->bool = 0; 
return S_OK; 

} 

else if (methodSignature = [this->target 
methodSignatureForSelector:@selector(getOLEPropertyNamed:)]) 



if (realSelector DISPID_VALUE) 

{ 

val = [this->target getOLEPropertyNamed:@"value M ]; 

} 

else 

{ 

val = [this-> target getOLEPropertyNamed:[NSString 
stringWithCString:sel_getName (realSelector)]]; 
} 

if (val) 

{ 

return convert_for_return (val, pvarResult); 

} 

else 

{ 

InitException (pexcepinfo, 1000, "NSOLEBridge Server", "failed to get 

property"); 
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return DEP JE JBXCEPTION; 

} 

else if ((DISPID)realSelector == DISPID_VALUE) 

' if (this->target->isa == objc_getClass("NSMutableStringProxy")) 

' wchar_t *wStrValue = (wchar_t*)alloca (sizeof (wchar_t) * [this- 

>target length] + sizeof(wchar_t)); 

[this->target getWCString:wStrValue]; 

pvarResvdt->bstrVal = SysAllocString(wStrValue); 
pvarResult->vt = VT_BSTR; 

return S_OK; 

} 

else 

{ 

pvarResult->vt = VTJJNKNOWN; 
pvarResult->pdispVal = (IDispatch*)this; 
this->vtable->AddRef ((IDispatch*)this); 
return S_OK; 

} 

} 

} 

if ((wFlags & DISPATCH.METHOD) == 0) 

' InitException (pexcepinfo, 1000, "NSOLEBridge Server", "object does not support 
properties"); 

return DISP_E_EXCEPTION; 

} 

} 



/* Currently we're only handling method dispatch */ 
if(wFlags & DISPATCH.METHOD) 

{ 



if( dispidMember == (DISPID)@selector(sendMsg) ) 

{ 

char *buffer2; 

VARIANT *arg0; 
VARIANT sendMsgName; 
Variantlnit (&sendMsgName); 
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argO = &(pdispparams->rgvarg[pdispparams->cArgs-l]); 
if (argO->vt != VT_BSTR) 

VariantChangeType(&sendMsgNarne, argO, 0, VTJ3STR); 

} 

else 

{ 

VariantCopy (&sendMsgName, argO); 
} 

/* get the real selector from the 1st parameter in pdispparams->rgvarg */ 
realMessage = [NSString stringWithCharactersisendMsgName.bstrVal length: 
wcslen(sendMsgName.bstrVal)]; 

VariantClear (&sendMsgName); 

buffer2 = malloc ([realMessage cStringLength]+2); 

[realMessage getCString:buffer2]; 

selector = realSelector = seLregisterName (buffer2); 

if (realSelector != (SEL)buffer2) 
free (buffer2); 

numberOflgnoredArgs = 1; 

} 

else 

{ 

int cnt, size; 

size = strlen (sel_getName ((SEL)dispidMember)) + 4; 
for (cnt = pdispparams->cNamedArgs; cnt ;cnt~) 
{ 

size += strlen (sel_getName ((SEL)pdispparams- 
>rgdispidNamedArgs[cnt-l])) + 2; 



buffer = (char*)malloc(size); 



/* Get the selector name from the runtime. The selector would have */ 
/* been returned as the DISPID in objc_getIDsOfNames above. */ 
strcpy (buffer, seLgetName((SEL)(realSelector))); 

if (InumberOflgnoredArgs && (pdispparams->cArgs - number OflgnoredArgs)) 
{ 

int cnt; 

/* We need to cons together the arguments for the selector */ 
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/* so that we can build the final selector that will be given */ 
/* to the NSInvocation object below. */ 

/**/ 

/* NOTE: Visual Basic 3.0 doesn't support named arguments so the */ 
5 /* only method you can call from there are ones such as foo::: which */ 

/* don't specify names as parameter seperators. Visual Basic for */ 
/* Applications (which is used in Excel) does support named arguments */ 
/* so you could call a method like foo:bar:baz:. */ 
for (cnt = (pdispparams->cArgs - numberOflgnoredArgs); cnt ;cnt— ) 

10 { ^ ; 

if (cnt <= pdispparams->cNamedArgs) 

{ 

const char *selName = sel_getName((SEL)((char*)0 

+ (pdispparams->rgdispidNamedArgs[cnt- 

15 1]))); 

/* If this is a named argument, add the name to the buffer */ 
if (isupper (selName[0])) 
{ 

char tmp[2] = { 0, 0 }; 
20 tmp[0] = tolower (selName[0]); 

strcat (buffer, tmp); 
strcat (buffer, selName+1); 

} 

else 

25 { 

strcat (buffer, selName); 

} 

} 

/* then after every argument put a colon. */ 
30 strcat (buffer, ":"); 

} 



/* Make sure the selector is registered with the runtime. */ 
35 if (isupper (buffer[0])) 

buffer[0] = tolower (buffer[0]); 
selector = sel_registerName (buffer); 
if((char*)selector != buffer) 
free(buffer); 

40 } 



if(selector) 
{ 

45 NSJDURING 

/* This may go across the wire, but that's OK. This is safe to */ 
/* call in the old and new object world (NSObject vs Object) */ 
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if(methodSignature I I (methodSignature = [this->target methodSignatureForSelector: 
selector])) 

{ 

/ / we're on the road to success... 

} 

else if ([this-> target methodSignattireForSelector:@selector(isNSIDispatchProxy)] 
&& [this->target isNSIDispatchProxy]) 

{ 

char buffer[1024]; 
int cnt; 
int off; 

sprintf (buffer, "%c%d@0:4" , pvarResult ? : V, pdispparams->cArgs 



for (off = 8, cnt = pdispparams->cArgs; cnt > 0; cnt-, off += 4) 

VARIANT ARG *arg = &pdispparams->rgvarg[cnt-l]; 
char *form = 0; 

switch (arg->vt & ~VT_BYREF) 
{ 

case VTJJI1: form = "C"; break; 

case VT_I2: form = "s"; break; 

case VT_I4: form = "i"; break; 

case VT_R4: form = "f"; break; 

case VT_R8: form = "d"; break; 

case VT_BSTR: form = break; 

case VT_UNKNOWN: form = "@"; break; 

case VT_DISPATCH: form = "@"; break; 

case VT_BOOL: form = "c"; break; 

case VT_NULL: form = "@"; break; 

default: 

*puArgErr = cnt; 
NS_VALRETURN 

(DISP_E_T YPEMISMATCH) ; 

} 

{ 

char buf2[10]; 

sprintf (buf2, "%s%d",form, off); 
strcat (buffer, buf2); 

} 

} 

methodSignature = [NSMethodSignature signatureWithObjCTypes: 

buffer]; 

if (methodSignature == nil) 
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[NSException raise: NSInternallnconsistencyException 

format: ©"Failed to send OLE message %s", 

sel_getName (selector)]; 

} 

isDistributedOLE = YES; 

} 

else 
{ 

NSString *desc = [this->target description]; 
[NSException raise: NSDestinationlnvalidException 

format: ©"Class %@ does not respond to the method named: 70s", 
desc, (char*)selector]; 

/* not reached */ 

NS_VALRETURN (DISP_E_EXCEPTION); 

} 

NSJHANDLER 
NSString *name; 

if(localException) 
name = [localException reason]; 
else 

name = [NSString stringWithFormat: 

©"Objective C unhandled exception occured - %s", (char*)selector]; 

InitException(pexcepinfo, JocalHandler._code, "NSOLEBridge Server", [name 
cString]); 

return (DISP_E_EXCEPTION); 
NSJENDHANDLER 

} 

else 

{ 

/* Should return an exception and point the pexcepinfo at the method name */ 
NSString *name = [NSString stringWithFormat: ©"The method %s could not be found.", 
(char*)selector]; 

InitException (pexcepinfo, 1000, "NSOLEBridge Server", [name cString]); 
return (DISPJE_EXCEPTION); 

} 

/* Everything should be cool now, go ahead and try to dispatch the method. */ 

NSInvocation* thelnvocation = [NSInvocation invocationWithMethodSignature: 
methodSignature]; 
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int numArgs = [methodSignature numberOf Arguments] - 2; /* don't include self and 
selector */ 

int argCount; 

char* theString = NULL; 

if(numArgs != (pdispparams->cArgs - numberOflgnoredArgs)) 

{ 

/* If the argument counts don't agree, return the right error. */ 
return (DISP JE_B ADP ARAMCOUNT) ; 

} 

for(argCount = 0 ; argCount < numArgs ; argCount++) 
{ 

HRESULT result; 
char * argType; 

VARIANT ARG *arg - &pdispparams->rgvarg[numArgs-argCotmt-l]; 
VARIANT ARG outarg; 
VARTYPE newType; 
VARIANT newVariant; 
unsigned int error; 

/* Prepare the VARIANT struct using the OLE API functions */ 

Variantlnit(&new Variant) ; 

VariantInit(&outarg); 

/* Get the Argument info from the NSMethodSignature object. Don't */ 
/* forget to add 2 to account for the self and selector parameters * / 
/* the objc_msgSend puts on the stack. */ 

argType = [methodSignature getArgumentTypeAtlndex: argCount + 2]; 

/* Is this argument supposed to be an object? If it is then we */ 

/* should do a different conversion. */ 

newType = NSConvertToVARTYPE(arg / argType, &outarg); 

/* Convert the incoming VARIANT to a type that matches the argType. */ 
/* Notice that this function counts arguments from right to left, so */ 
/* that when you pass 0, you '11 get the last parameter. */ 

if (outarg.vt != newType) 
{ 

result = VariantChangeType(&newVariant, &outarg, 0, newType); 
else 

{ 

result = S_OK; 
VariantCopy (&newVariant, &outarg); 
} 
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/* Release outarg from the conversion above */ 
VariantClear (&outarg); 

if(result != S_OK) 

/* If there's an error, return something appropriate */ 
switch(result) 
{ 

case DISP_EJ3ADVARTYPE: 
case DISP_E_OVERFLOW: 
case DISP_E_TYPEMISMATCH: 

*puArgErr = argCount; 

return (DISP_EJTYPEMSMATCH); 
default: 

*puArgErr = argCount; 

LrritException(pexcepinfo, 1000, "NSOLEBridge Server", 

"Unable to convert parameter to usable type"); /* Should also 
include type we're trying to convert to. */ 

return (DISP_E_EXCEPTION); 

} 



if(newVariantvt & VT_BYREF) 
{ 

InitException(pexcepinfo, 1000, "NSOLEBridge Server", 

"NSOLEBridge Server doesn't handle VTJBYREF values"); /* Should 
also include type we're trying to convert to. * / 
return (DISPJE_EXCEPTION); 

} 

/* This switch only has to handle C types. Any object types */ 

/* would be handled above */ 

switch(newVariant.vt) 

{ 

case VT_UI1: 

[thelnvocation setArgument:(void*)&newVariant.u.bVal atIndex:argCount+2]; 
break; 
case VT_I2: 

[thelnvocation setArgument:(void*)&newVariant.iVal atIndex:argCount+2]; 
break; 
case VT_I4: 

[thelnvocation setArgument:(void*)&newVariant.lVal atIndex:argCount+2]; 
break; 
case VT_R4: 

[thelnvocation setArgument:(void*)&newVariantfltVal atIndex:argCount+2]; 
break; 
case VTJR8: 

[thelnvocation setArgument: (void*)&newVariant.dblVal atIndex:argCount+2]; 
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break; 
case VTJ3STR: 

/ / NSInvocation doesn't copy cString args, so we make an "autoreleased" cString 
unsigned int length = wcslen(newVariant.bstrVal); 
NSMutableData *data = [NSMutableData dataWithLength:length+l]; 
char *theString = [data mutableBytes]; 
theString = (char*)malloc(length + 1); 

WideCharToMultiByte(CP_ACP, 0, (LPCWSTR)(newVariant.bstrVal), length, 

(LPSTR)theString, length, NULL, NULL); 
theStringflength] = '\0'; 

[thelnvocation setArgument: (void*)&theString atIndex:argCount+2]; 
break; 

} 

case VT_BOOL: 
{ 

BOOL boolValue = (newVariant.bool != 0); 

[thelnvocation setArgument: (void*)&boolValue atIndex:argCount+2]; 
break; 

} 

case VT_NULL: 
{ 

int nullValue = 0; 

[thelnvocation setArgument: (void*)&nullValue atIndex:argCount+2]; 
break; 

} 

case VT_DISPATCH: 
case VTJJNKNOWN: 

id object = [NSOLEBridge proxyForOLEObject:(IUnknown*) 
newVariant.pdispVal]; 

[thelnvocation setArgument: (void*)&object atIndex:argCount+2]; 
break; 

} 

default: 

*puArgErr = argCount; 

return (DISP_E_TYPEMISMATCH) ; 

break; 



// release this argument... 
VariantClear (&new Variant); 

} /* For loop V 

NS_DURING 
{ 

[thelnvocation setSelector: selector]; 



10010.946 



63 



if (isDistributedOLE) 
{ 

NSValue *rVal = [this->target performInvocation:theInvocation 
getRetum:[methodSignature methodReturnType]]; 

if (rVal) 
{ 

if (convert_for_return (rVal, pvarResult) != S_OK) 

{ 

InitException (pexcepinfo, 1000, "NEXTORB", 

"unable to convert return value"); 

NS_VALRETURN (DISP_E_EXCEPTION); 

} 

else 
{ 

NS_VALRETURN (S_OK); 

} 

} 

else 
{ 

if (pvarResult) 

pvarResult->vt = VT_EMPTY; 
NS_VALRETURN (returnValue); 

} 



else 

{ 

[thelnvocation invoke WithTarget: this->target]; 
} 

} 

NS_HANDLER 
{ 

NSString *name = [NSString stringWithFormat: 

©"Objective C unhandled exception during invocation of %s", 

(char*)selector]; 

InitException(pexcepinfo, 1000, "NSOLEBridge Server", [name cString]); 
return (DISP_E_EXCEPTION); 

} 

NS_ENDHANDLER 

/* Now get the return type back if it's requested */ 
if(pvarResult) 
{ 
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pvarResult->vt = NSConvertToVARTYPE(NULL, [methodSignature 
methodReturnType], 0); 

/* This switch only has to handle C types. Any object types 7 

/* would be handled above */ 

switch(pvarResult->vt) 

{ 

case VTJJI1: 
{ 

char byteValue; 

[thelnvocation getRetumValue: (void*)&byteValue]; 

pvarResult->iVal = byteValue; 

break; 

case VT^EMPTY: /* this is returning void */ 
break; 
case VT_I2: 

[thelnvocation getRetumValue: (void*)&pvarResult->iVal]; 
break; 
case VTJ4: 

[thelnvocation getRetumValue: (void*)&pvarResult->lVal]; 
break; 

case VT_R4: 
{ 

float retumValue; 

[thelnvocation getRetumValue: (void*)&returnValue]; 

pvarResult->fltVal = retumValue; 

break; 

} 

case VT_R8: 

[thelnvocation getRetumValue: (void*)&pvarResult->dblVal]; 
break; 
case VTJBSTR: 
{ 

char* strValue; 
wcharj* wStr Value; 
unsigned int length; 

[thelnvocation getRetumValue: (void*)&strValue]; 
length = strlen(strValue); 

wStrValue = (wchar_t*)malloc((length * sizeof(wchar_t)) + sizeof (wchar_t)); 

MultiByteToWideChar(CPJ^CP, MB^PRECOMPOSED, strValue, length + 1, 
wStrValue, length + 1); 

pvarResult->bstrVal = SysAllocString(wStrValue); 

free (wStrValue); 
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break; 

} 

case VT_BOOL: 
{ 

long boolValue; 

[thelnvocation getReturnValue: (void*)&boolValue]; 
pvarResult->bool = (VARIANT_BOOL)boolValue; 
break; 

} 

case VTDISPATCH: 
{ 

id object; 

[thelnvocation getReturnValue: (id*)&objectj; 



13 15 

SJ pvarResult->pdispVal 



= (IDispatch*) [NSOLEBridge proxyForOBJCObjectrobject]; 
break; 

1 



default: 

MtException (pexcepinfo, 1000, "NSOLEBridge Server", 

"unsupported return value"); 
return (DISP_E_EXCEPTION); 

25 } 
} 

} 

} 

30 return returnValue; 

} 



static _stdcall HRESULT _RPC_FAR 
35 COMNSObjectProxy_Invoke(COMNSObjectProxy *this, 

DISPID dispidMember, 

REFEDriid, 

LCID kid, 

WORD wFlags, 
40 DISPPARAMS *pdispparams, 

VARIANT *pvarResult, 

EXCEPINFO *pexcepinfo, 

UINT *puArgErr) 

{ 

45 HRESULT r; 

NS_POOL 
NS_DURING 
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r= _XX_COMNSObjectProxy_Invoke(this, 

dispidMember, 

riid, 

kid, 

wFlags, 

pdispparams, 

pvarResult, 

pexcepinfo, 

puArgErr); 

} 

NS_HANDLER 

^NSString *why = [NSString stringWithFormat:@"(INTERNAL NEXTORB ERROR) Uncaught 
Exception, %@", localException]; 

MtException(pexcepinfo, 1001, "NEXTORB", [why cString]); 
r = DISP_E_EXCEPTION; 

} 

NS_ENDHANDLER; 
NS_ENDPOOL; 

return r; 

} 

VARTYPE 

NSConvertToVARTYPE (VARIANT ARG *arg, const char "type, VARIANT ARG *outarg) 
{ 

int ptr = 0; 

/* skip modifiers... */ 

while (*type == 'O' I I *type == 'V I I *type == 'o' I I *type == 'r') type++; 

if (arg && outarg) 
VariantCopy (outarg, arg); 

switch (*type) 
{ 

case V: 
return VTJEMPTY I ptr; 
break; 

case 'c': 
case 'C: 

return VTJUI1 I ptr; 

break; 
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case s : 




case 'S': 




■ t TV TO 1 .-. 1 — . 

return VT_I2 1 ptr; 




break; 


5 






case T: 




case I: 




case 1 : 




case 'L': 


10 


return VTJ4 1 ptr; 




break; 




case cj'; 




case 'Q': 


O 1 5 


return VT NULL; 




break; 




Laic l • 




return VT_R4 1 ptr; 


$ 20 


break; 




case 'd': 


rtj 


return VT_R8i ptr; 


p 


break; 


M 25 






case V: 


r c 


return VT JSIULL; 


;: 

I 


break; 



30 case '#': 

case '©': 
if (arg) 

{ 

int byref = 0; 

35 

switch (arg->vt) 
{ 

case VTJ3STR: 
{ 

40 OLECHAR *olestr = arg->bstrVal; 

id str = [NSString stringWithCharacters:olestr 
length:wcslen(olestr)]; 

VariantClear (outarg); 

45 

outarg->pdispVal = (IDispatch*) [NSOLEBridge 
proxyForOBJCObject:str]; 

outarg->vt = VT_DISPATCH; 
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15 



25 



45 



return VT.DISPATCH; 

} 

case VT_DISPATCH: 
case VT.UNKNOWN: 
case VT_DISPATCH I VT.BYREF: 
case VTJJNKNOWN I VT_BYREF: 
return arg->vt & ~VT_BYREF; 



default: 
{ 



VARIANT v; 
Variantlnit (&v); 

if (VariantChangeType (&v, arg, 0, VT_BSTR) == S_OK) 
{ 



OLECHAR *olestr = v.bstrVal; 
20 id str = [NSString stringWithCharacters:olestr 

length:wcslen(olestr)]; 



VariantClear (&v); 
VariantClear (outarg); 

outarg->pdispVal = (IDispatch*) [NSOLEBridge 
proxyForOBJCObject:str]; 

outarg->vt = VT.DISPATCH; 

30 return VT_DISPATCH; 

} 

else 

{ 

return VT_NULL; 
35 } 
} 

} 

} 

return VT_DISPATCH; 
40 break; 

case '{' : 
return VT_NULL; 
break; 



return VT_NULL; 
break; 
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case '[': 
return VT_NULL; 
break; 

5 

case '(': 
return VT_NULL; 
break; 

10 case 'b': 

return VT_NULL; 
break; 

a. .J., 

I; J caS g 

p 15 return VTJBSTR I ptr; 

N break; 

H default: 
IB abort 0; 

i0 20 } 
} 



p* /* OLE2 IDispatch interface subclass which is a proxy */ 

25 /* for a real NSObject. */ 

13 static _stdcall _RPC_FAR HRESULT 

COMNSObjectProxy_QueryInterface(COMNSObjectProxy _RPC_FAR *this, 

REFTDD riid, 

30 void _RPC_FAR * _RPC_FAR * ppv) 

( 

if (this ==011 riid ==011 ppv == 0) 
return EJNVALIDARG; 

35 if(IsEqualIID (riid, JUnknown) 
I I IsEquaUTD (riid, &IID_IDispatch)) 

{ 

*ppv = this; 

} 

40 else 
{ 

*ppv = NULL; 

return ResultFromScode(E_NOINTERFACE); 

45 } 

this->vtable->AddRef((IDispatch*) this); 
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p.3» 

ll 15 *this) 

U ( 

Vi.i 



40 



45 



return NOERROR; 

} 



static _stdcall _RPC_FAR ULONG 
COMNSObjectProxy_AddRef(COMNSObjectProxy *this) 

{ 

if (this == 0) 
return 0; 

return ++this->m_refs; 

} 

static _stdcall _RPC_FAR ULONG COMNSObjectProxy_Release(COMNSObjectProxy 



if (this == 0) 
return 0; 

s ■ 

W 20 NS_POOL 
'%§ if(-this->m_refs == 0) 

{ 

D NSJXJRING 

ru { 

p 25 this->m_refs += 10; 

y [NSOLEBridge _f orgetProxy :this->target for: (IUnknown*)this]; 

this->m_refs -= 10; 



[this->target release]; 
30 free (this); 

} 

NS_HANDLER 
{ 

debugPrint ([NSString stringWithFormat:@"Unhandled exception during release 
35 of {OLE->DO@0x%x}", this]); 
} 

NS_ENDHANDLER; 



} 



debugPrint ([NSString stringWithFormat:@"{OLE->DO@0x%x} free'd", this]); 

NS.POPPOOL; 
return 0; 

} 

NSJENDPOOL; 
return tWs->m_refs; 
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static _stdcall _RPC_FAR HRESULT 

COMNSObjectProxy_GetTypeInfoCount(COMNSObjectProxy *this, UINT *pctinfo) 
{ 

if (this ==01! pctinfo == 0) 
return E_NOTIMPL; 

*pctinfo = 0; 

return S_OK; 

} 

static _stdcall _RPC_FAR HRESULT 

COMNSObjectProxy_GetTypeInfo(COMNSObjectProxy *this, 

UINTitinfo, 
LCID lcid, 
rTypelnfo **pptinfo) 

{ 

if (itinfo != 0) 
return DISP_E_BADINDEX; 

*pptinfo = NULL; 

return TYPE_E_ELEMENTNOTFOUND; 

} 

struct IDispatchVtbl COMNSObjectProxy_vtable = { 

&COMNSObjectProxy_QueryInterface, 

&COMNSObjectProxy_AddRef, 

&COMNSObjectProxy_Release, 

&COMNSObjectProxy_GetTypeInfoCount / 

&COMNSObjectProxy_GetTypeInfo / 

&COMNSObjectProxy_GetIDsOfNames, 

&COMNSObjectProxy_Invoke 
}; 



COMNSObjectProxy * 
alloc_COMNSObjectProxy(id anObject) 

{ 

COMNSObjectProxy* proxy; 

COMNSObjectProxy *o = malloc (sizeof (struct .COMNSObjectProxy)); 
o->vtable = &COMNSObjectProxy_vtable; 
o->m_refs = 1; 

o->target = [anObject retain]; 
return o; 

} 
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// 

//We need methodSignatureForSelector 

// 

©interface NXProxy (NSMethodSignature) 
@end 

©implementation NXProxy (NSMethodSignature) 
- methodSignatureForSelector: (SEL)op 

{ 

NXMethodSignature *sig = [self methodSignaturerop fromZone:NXDefaultMallocZone()]; 
return [NSMethodSignature signatureWithObjCTypes:[sig methodReturnType]]; 

} 

@end 



©interface Object(NSMethodSignature) 
©end 

©implementation Object(NSMethodSignature) 
- methodSignatureForSelector:(SEL)op 

{ 

NXMethodSignature *sig = [self methodSignaturerop fromZone:NXDefaultMallocZone()]; 
return [NSMethodSignature signature WithObjCTypes:[sig methodReturnType]]; 

} 

©end 



NEXTSTEP/OPENSTEP to OLE 
/* modeic V 

#import <windows.h> 
#import <ole2.h> 
#import <oleauto.h> 

#undef alloca 

#define alloca builtin_alloca 

#ifdef _GNUC_ 

#include <ole-header-fixes.h> 

#endif /* _GNUC_ V 

#import "NSIDispatch.h" 
#import "NSOLEBridge.h" 
#import <foundation/foundation.h> 
#import <objc/protocolh> 
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#import <remote/NXProxy.h> 

#import <remote/>IXMethodSignattire.h> 

#import "nxorb.h" 

5 

extern FILE* outputfd; 

extern void debugPrint(const char* output); 



10 raise_disp_exception (id object, id methodName, SCODE err, EXCEPINFO* pexcep); 



* An NSIUnknownProxy is a cover for an IUnknown OLE object. 
15 * The NSOLEBridge api should be used for accessing these. 

7 

©implementation NSIUnknownProxy 
20 - retain 

{ 

refcount += 1; 

25 return self; 
} 

- (unsigned int)retainCount 

{ 

30 return refcount; 

} 

- (void)release 
{ 

35 

if (—refcount == 0) 
{ 

[self dealloc]; 

40 } 
} 

- (void)dealloc 
{ 

45 

[NSOLEBridge _forgetProxy:self for:realObject]; 
if (realObject) 
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realObject->lpVtbI->Release (realObject); 



[super dealloc]; 

} 

- initWithOLEObject:(IUriknown*)punk 
{ 

ref count = 1; 

punk->lpVtbl->AddRef (punk); 
realObject = punk; 

return self; 

} 

©end 

/* 

* An NSIDispatchProxy is a cover for an IDispatch OLE object 

* The NSOLEBridge api should be used for accessing these. 
V 

©implementation NSIDispatchProxy 

/ / DO will ask this question so that it can send forwardlnvocation: 
/ / instead of building up a stack frame and calling objcjtnsgSend 
// (which will trap in forward:: and call methodSignatureForSelector: 
// which we don't know how to answer) 

/ / Its important that we don't get forwardlnvocation: for the (DO sent) things 
// (like isProxy) that we really do do. 

- (BOOL)willForwardSelector:(SEL)aSel { 

return ([self methodSignatureForSelector:aSel] nil); 

} 



- (void) dealloc 
{ 

if (idTable) 
NSFreeMapTable (idTable); 

if (methodDescriptionTable) 
NSFreeMapTable (methodDescriptionTable); 

if (protocol) 
[protocol free]; 
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debugPrint ([NSString stringWithFormat:@"{DO->OLE@0x%x} free'd", self]); 
[super dealloc]; 

} 

- initWithOLEObject:(IUnknown*)punk 

{ 

IDispatch *pdisp; 
HRESULT result; 
id retVal; 



pdisp = (IDispatch*)punk; 

methodDescriptiortTable = 0; 
protocol = 0; 

idTable = NSCreateMapTable(NSNonOwnedPointerMapKeyCallBacks, 

NSNonOwnedPointerMapValueCallBacks, 
0); 

retVal = [super initWithOLEObject:(IUnknown*) pdisp]; 

debugPrint ([NSString stringWithFormat:@"{DO->OLE@0x%x} alloc'ed", self]); 

return retVal; 

} 

- (DISPID) getDKPIDForName:(NSString*)name 
{ 

DISPID theid = DISPIDJJNKNOWN; 

SEL op = sel_registerName (NXUniqueString ([name cString])); 



if (theid = (DISPID)NSMapGet (idTable, op)) 
{ 

return theid; 

} 

else if (stricmp ([name cString], "value") — 0) 
{ 

return DISPID_VALUE; 

} 

else 
{ 

const char *string Value = [name cString]; 
int length = strlen(string Value); 
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OLECHAR *wStrValue = (OLECHAR*)alloca((length * sizeof(OLECHAR)) + 
sizeof(OLECHAR)); 
HRESULT res; 

OLECHAR *sysStr; 

UINT infocnt; 
struct ITypelnfo *info; 



MulnByteToWideChar(CP_ACP, MB.PRECOMPOSED, stringValue, length + 1, 
wStr Value, length + 1); 

sysStr = SysAllocString(wStrValue); 

res = ((IDispatch*)realObject)->lpVtbl 

->GetIDsO£Names ((IDispatch*) realObject, &IID_NULL, &sysStr, 

1, LOCALE_SYSTEM_DEFAULT / &theid); 

if (res == S_OK && theid != DISPID.UNKNOWN) 
goto done; 

theid = DISPID_UNKNOWN; 

res = ((IDispatch*)realObject)->lpVtbl 

->GetTypeInfoCount ((IDispatch*) realObject, &infocnt); 



if (res == S_OK && infocnt == 1) 

{ 

res = ((IDispatch*)realObject)->lpVtbl 

->GetTypeInfo ((IDispatch*) realObject, 0, LOCALE_SYSTEM_DEFAULT, 

&info); 

if (res != S_OK) 
goto done; 

res = info->lpVtbl->GetIDsOfNames (info, &sysStr, 1, &theid); 
info->lpVtbl->Release (info); 
goto done; 

} 

} 

done: 

if (theid != DISPID_UNKNOWN) 
NSMapInsert (idTable, op, (void*) theid); 
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return theid; 

} 

extern VARTYPE 

NSConvertToVARTYPE (VARIANT ARG *arg, const char *type, VARIANTARG *outarg); 

-(NSValue*)performInvocation:(bycopy NSInvocation*)inv getRetum:(char*)rettype 

typedef struct { id isa; NSObjCValue returnValue; } NSInv; 
NSInv * inv2 = inv; 

[self forwardInvocation:inv]; 

if (rettype[0] != V) 

return [NSValue value:&inv2->retumValue.value withObjCTypeirettype]; 

else 

return nil; 



- (void)forwardInvocation:(NSInvocation *)invocation 
{ 

IDispatch *target = (IDispatch*)realObject; 
DISPID dispidMember; 
NSString *selString; 
NSArray* funcName; 
int i, numArgs; 

DISPP ARAMS params; 



selString = [NSString stringWithCString:sel_getName ([invocation selector])]; 
funcName = [selString componentsSeparatedByString: ©":"]; 
numArgs = [funcName count]-l; 

debugPrint ([NSString stringWithFormat:@ n {DO->OLE@0x%x}. %©(...)]", self, selString]); 
/* Set up the target selector */ 

dispidMember = [self getDISPIDForName:[funcName objectAtIndex:0]]; 

/* Set up the named arguments of PARAMS */ 
{ 

BOOL named = NO; 

DISPID *names = alloca (numArgs * sizeof (DISPID)); 
params.cNamedArgs = 0; 
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params.rgdispidNamedArgs = 0; 

for (i = 1; i < numArgs; i++) 

NSString *str = [funcName objectAtIndex:i]; 

if ([str cStringLength] > 0) 
{ 

named = YES; 
params.cNamedArgs += 1; 

names[i-l] = [self getDISPIDForName:str]; 

} 

else 

{ 

if (named) 

{ 

params.cNamedArgs += 1; 
names[i-l] = DISPID_UNKNOWN; 

} 

} 

} 

/* 

* If there are any named arguments, reverse their order and 

* put them in the rgdispidNamedArgs element of PARAMS 

V 

if (named) 
{ 

intc; 

params.rgdispidNamedArgs 
= alloca (params.cNamedArgs * sizeof (DISPID)); 

for (c = params.cNamedArgs; c> 0; c— ) 
params.rgdispidNamedArgs[c] = namesfparams.cNamedArgs 

} 

} 

/* Set up the real arguments */ 

if (numArgs == 0) 

{ 

params.cArgs = 0; 
params.rgvarg = 0; 

} 

else 

{ 

int index; 
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NSMethodSignature *sig = [invocation methodSignature]; 
params.cArgs = numArgs; 

params.rgvarg = alloca (numArgs * sizeof (VARIANT ARG)); 
// Initialize the arguments 

{ int i; for (i = 0; i < params.cArgs; i++) Variantlnit (&params.rgvarg[i]); } 

/* INDEX is the argument index into the invocation, which has 

* two hidden arguments, thge selector and the receiver 

V 

for (index = 2; index < 2+numArgs; index++) 
{ 

/* Where to put this argument... */ 

VARIANT ARG* arg = &(params.rgvarg[numArgs-(index«2)-l]); 

char * infoType; 

const char *stringValue = 0; 

infoType = [sig getArgumentTypeAtIndex:index]; 

switch (*infoType) 
{ 

case '@': 
case '#': 
{ 

id object; 

[invocation getArgument.&object atlndex:index]; 

if ([object isKindOfClass:[NSString class]] == NO) 

arg->pdispVal = (IDispatch*) [NSOLEBridge proxyForOBJCObject:object]; 

arg->vt = VT_DISPATCH; 

continue; 

} 

stringValue = [object cString]; 
/* FALL THROUGH */ 

} 

case '*': 
{ 

wchar_t* wStr Value; 
unsigned int length; 



if (! stringValue) 
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[invocation getArgument&stringValue atlndex:index]; 

} 

length = strlen(stringValue); 

wStrValue = (wchar_t*)alloca((length * sizeof (wchar_t)) 

+ sizeof(wchar_t)); 

MultiByteToWideChar(CP_ACP, 

MBJPRECOMPOSED, 

stringValue, 

length + 1, 

wStrValue, 

length + 1); 

arg->bstrVal = SysAUocString(wStrValue); 
arg->vt = VTJBSTR; 

continue; 

} 

case 's'r 
case 'S'r 
arg->vt = VT J2; 

[invocation getArgument:&arg->iVal atlndexrindex]; 
continue; 

case T: 
case T: 
case T: 
case 'L'r 
arg->vt = VT J4; 

[invocation getArgument:&arg->lVal atlndexrindex]; 
continue; 

case T: 
arg->vt = VT_R4; 

[invocation getArgument:&arg->fltVal atlndexrindex]; 
continue; 

case r d'r 
arg->vt = VTR8; 

[invocation getArgumentr&arg->dblVal atlndexrindex]; 
continue; 

defaultr 

[NSException raiserNSInvalidArgumentException 

formatr@ M %dth argument of %@", index, invocation]; 
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} 

} 

} 



/* OK, here we go. Now we can dispatch the method. */ 

{ 

VARIANT returnval; 
UINT argErr; 

EXCEPrNFO exceplnfo; 
HRESULT res; 

NSMethodSignature *sig = [invocation methodSignature]; 
char *rettype = [sig methodReturnType]; 

if (rettype[0] == V I I rettype[0] == 'O') 
{ 

/* one-way or void */ 

res = target->lpVtbl->Invoke (target, 

dispidMember, 

&IID_NULL, 

LOCALE_SYSTEM_DEFAULT, 

DISPATCH_METHOD, 

&params, 

0, 

&excepInfo, 
&argErr); 



// Release ressources for the arguments 

{ int i; for (i = 0; i < params.cArgs; i++) VariantClear (&params.rgvarg[i]); } 

if (res != S_OK) 
raise_disp_exception (self, selString, res, &excepInfo); 

} 



/* 

* This is the case if a return value is expected. 

7 

else 
{ 

VARIANT out, new Variant; 
VARTYPE newType; 

Variantlnit (&returnval); 
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/* expect return value */ 

res = target~>lpVtbl->Invoke (target, 

dispidMember, 

&nDJMULL, 

5 LOCALE_SYSTEMJDEFAULT, 

DISPATCH_METHOD I (numArgs == 0 ? 
DISPATCH JPROPERTYGET : 0), 

&params, 
&returnval, 

10 &excepInfo, 

&argErr); 

// Release ressources for the arguments 

{ int i; for (i = 0; i < params.cArgs; i++) VariantClear (&params.rgvarg[i]); } 

15 

if (res != S_OK) 

raise_disp_exception (self, selString, res, &excepInfo); 

/* convert return type */ 

20 

Variantlnit (&out); 

newType = NSConvertToVARTYPE(&returnval, rettype, &out); 

VariantClear (&returnval); 

25 Variantlnit (&newVariant); 

if (outvt != newType) 

res = VariantChangeType(&newVariant, &out, 0, newType); 

} 

30 else 
{ 

VariantCopy (&newVariant, &out); 

} 

35 VariantClear (&out); 

switch(newVariant.vt) 
{ 

case VT_UI1: 

40 [invocation setReturnValue: (void*)&newVariant.u.bVal]; 

break; 
case VTJ2: 

[invocation setReturnValue:(void*)&newVariant.iVal]; 
break; 

45 case VT _I4: 

[invocation setReturnValue:(void*)&newVariant.lVal]; 
break; 
case VTJR4: 
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[invocation setRettimValue:(void*)&newVariantfltVal]; 
break; 
case VT_R8: 

[invocation setReturnValue: (void*)&newVariant.dblVal]; 
break; 

case VTJ3STR: 

unsigned int length = wcslen(newVariant.bstrVal); 
char *theString = (char*)alloca(length + 1); 

WideCharToMultiByte(CP_ACP, 0, (LPCWSTR) (new Variant. bstrVal), length, 

(LPSTR)theString, length, NULL, NULL); 
theString[length] = ? \0'; 

[invocation setReturnValue: (void*)&theString]; 
break; 

} 

case VT_BOOL: 
{ 

BOOL boolValue = (newVariant.bool != 0); 
[invocation setReturnValue: (void*)&boolValue]; 
break; 

} 

case VT_NULL: 
{ 

int nullValue = 0; 

[invocation setReturnValue: (void*)&nullValue]; 
break; 

} 

case VT_DISPATCH: 
case VT_UNKNOWN: 

id object = [NSOLEBridge proxyForOLEObject:(IUnknown*)newVariant.pdispVal]; 

[invocation setReturnValue: (void*)&object]; 

break; 

} 

default: 

[NSException raise:NSInvalidArgumentException format@"Unexpected return 

type"]; 



VariantClear (&newVariant); 

} 

} 



return; 

} 
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- (struct objc_method_description *)methodDescriptionForSelector:(SEL)sel 
{ 

struct objc_method_description *desc = 0; 



if (methodDescriptionTable == 0) 
{ 

methodDescriptionTable 

= NSCreateMapTable(NSNonOwnedPointerMapKeyCallBacks, 
NSNonOwnedPointerMapValueCallBacks, 

0); 

} 

if (desc = NSMapGet (methodDescriptionTable, sel)) 
{ 

/* hey, don't do anything... */; 

} 

else if (protocol && (desc = [protocol descriptionForlnstanceMethodrsel])) 
{ 

NSMapInsert (methodDescriptionTable, sel, desc); 

} 

else if (desc = [@protocol(NSIDispatchProxyProtocol) 

descrip tionForlnstanceMe thodrsel] ) 

{ 

/* hey, this should be reasonably fast so we won't cache it here... */ 

} 



return desc; 

} 

- (struct objc_method_description *)descriptionForMethod:(SEL)sel 
{ 

struct objc_method_description * res; 

res = [self methodDescriptionForSelector: sel]; 
return res; 

} 

- methodSignature:(SEL)sel fromZone:(NXZone *)zone 
{ 

NXMethodSignature* retVaiue; 



10010.946 



85 



struct objc_method_description *method_desc = [self methodDescriptionForSelector: 

sel]; 



retValue = [NXMethodSignature fromDescription:method_desc fromZonerzone]; 



return retValue; 

} 

// This is for NSDO support... 

- (NSMethodSignature*) methodSignatureForSelector:(SEL)sel 
{ 

NSMethodSignature* sig; 

struct objc_method_description *desc; 



if (desc = [self methodDescriptionForSelector: sel]) 

sig = [NSMethodSignature signatureWithObjCTypes:desc->types]; 
else 

sig = nil; 



return sig; 

} 

/* This method usually gets called from remote when an 
NXNSOLEProxy is send a message -setProtocolForProxy:... */ 

- (void) setProtocolForNSIDispatchProxy:(Protocol*)proto 
{ 

if (self->protocol) [self->protocol free]; 
self->protocol = proto; 

} 

// 

// NSIDispatchProxes are encoded as instances of NXNSOLEProxie's, 

/ / when encoded for NXDO. NXNSOLEProxies forward setProtocolForProxy: 

// using setProtocolForlDispatchProxy: 

// 

- encodeRemotelyFor:(NXConnection*)conn 
freeAfterEncoding:(BOOL*)flag 

isBycopy:(BOOL)isBycopy 

I 
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struct objc_object *proxy; 



proxy = [conn newLocal:self]; 

proxy->isa = objc_getClass ("NXNSOLEProxy"); 



return proxy; 

} 



- setProtocolForProxy:(Protocol*)proto 

{ 

if (self->protocol) [self->protocol free]; 
self->protocol = proto; 

return self; 

} 

- (BOOL)respondsToSelector:(SEL)sel 
{ 

BOOL retVal; 

retVal = [self methodSignatureForSelector:sel] != nil; 
return retVal; 

} 

// 

// The next couple of methods are required by Foundation 4.0's DO 

// 

- (Class)classForPortCoder 
{ 

return isa; 

} 

- (id)replacementObjectForPortCoder:(NSCoder *)aCoder 

return [NSDistantlDispatchProxy proxy WithLocal: self connection: [aCoder connection]]; 

} 

- awakeAfterUsingCoder: (NSCoder*)aCoder 
{ 



10010.946 



87 



return self; 

} 



5 // 

// Set Property on an OLE Object 

// 

extern HRESULT 
10 convert_for_return (NSValue *val, VARIANT *ret); 

static void 

M raise_disp_exception (id object, id methodName, SCODE err, EXCEPINFO* pexcep) 

P 15 * NSString *contextDesc = [NSString stringWithFormat:@"<OLE Ox%x>::%@", 
Si object, methodName]; 

switch (err) 

m { 

$ 20 case DISPJEJ8ADPARAMCOUNT: 

[NSException raise:NSInvalidArgumentException 
f «j format:@"%@: wrong number of arguments 1 ', contextDesc]; 

m case DISP_E_EXCEPTION: 

fS [NSException raise:NSGenericException 

25 format:@"%@: code=%d; src=%@; description=%@", 

? l| contextDesc, 
JjJ pexcep~>wCode, 
« W (pexcep->bstrSource ? [NSString 

stringWithWCString:pexcep->bstrSource] : 
30 " ' [NSString stringWithCString: "Exception 

source unknown"]), 

(pexcep->bstrDescription ? [NSString 
stringWithWCString:pexcep->bstrDescription] : 

[NSString stringWithCString: "Unknown OLE Automation 

35 exception"])]; 

case DISP_E_MEMBERNOTFOUND: 

[NSException raise:NSInvalidArgumentException 

format:@"%@: attribute or selector not recognized", contextDesc]; 
case DISP_E_NONAMEDARGS: 
40 [NSException raise:NSInvalidArgumentException 

format:@"%@: named arguments not supported", contextDesc]; 
case DISPJEJ3VERFLOW: 
case DISP JE JTYPEMISMATCH: 
[NSException raise:NSInvalidArgumentException 
45 format:@"%@: argument coersion failed", contextDesc]; 

case DISP_E_PARAMNOTOPTIONAL: 

[NSException raise:NSInvalidArgumentException 



10010.946 



format:@"%@: named argument missing", contextDesc]; 



case DISP_E_PARAMNOTFOUND: 

[NSExceptionraise:NSInternalInconsistencyException 

format:@"%@: DISP_E_PARAMNOTFOUND" / contextDesc]; 
case DISP_E_BADVARTYPE: 

[NSExceptionraise:NSInternalInconsistencyException 

format:@"%@: DISP_E_BADVARTYPE", contextDesc]; 
case DISP_E_UNKNOWNINTERFACE: 

[NSExceptionraise:NSInternalInconsistencyException 

format:@"%@: DISP_E_UNKNOWNINTERFACE'' / contextDesc]; 
case DISP_E_UNKNOWNLCID: 

[NSExceptionraise:NSInternalInconsistencyException 

format:@"%@: DISP.E.UNKNOWNLCID", contextDesc]; 

} 

} 

- (void)setOLEPropertyNamed:(NSString*)name to:(NSValue*)val 
{ 

EXCEPINFO exceplnfo; 
UINT argErr; 
VARIANT arg; 
HRESULT res; 
DISPP ARAMS params; 

DISPID namedArg = DISPID_PROPERTYPUT; 
IDispatch *target = (IDispatch*)realObject; 

/* initialize the variant */ 
Variantlnit (&arg); 

convert_for_return (val, &arg); 

params. cNamedArgs = 1; 
params.rgdispidNamedArgs = &namedArg; 
params.cArgs = 1; 
params.rgvarg = &arg; 

res = target->lpVtbl->Invoke (target, 

[self getDISPIDForName:name], 
&HD_NULL, 

LOCALE_SYSTEM_DEFAULT, 
DISPATCH_PROPERTYPUT, 
&params, 
0, 

&excepInfo, 
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&argErr); 

// release variant ressources. 
VariantClear (&arg); 

5 

if (res != S_OK) 
{ 

raise_disp_exception (self, name, res, &excepInfo); 

} 

10 

} 



15 // 

// Get Property on an OLE Automation Object. 

// 

extern NSValue *convert_to_nsvalue (VARIANT*); 

20 

- (NSValue*)getOLEPropertyNamed:(NSString*)name 

{ 

DISPP ARAMS params; 
EXCEPHSTFO exceplnfo; 
25 DISPID theld; 
UINT argErr; 
VARIANT result; 
HRESULT res; 

IDispatch *target = (IDispatch*)realObject; 
30 NSValue *val; 

params.cArgs = 0; 
params.rgvarg = 0; 
params.cNamedArgs = 0; 
35 params.rgdispidNamedArgs = 0; 

/* initialize the return variant */ 
Variantlnit (&result); 

40 /* get the dispatch identifier */ 

theld = [self getDISPIDForName:name]; 

/* Perform the property get... */ 
res = target->lpVtbl->Invoke (target, 
45 theld, 

&HD_NULL, 

LOCALE_SYSTEM_DEFAULT, 
DISPATCH_PROPERTYGET, 
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&params, 
&result, 
&excepInfo, 
&argErr); 

5 

if (res != S_OK) 
{ 

raise_disp_exception (self, name, res, &excepInfo); 

} 

10 

// get the variant corresponding to the return value 
val = convertJo_nsvalue (&result); 

/ / release variant ressources. 
15 VariantClear (&result); 

return val; 

} 



- (NSString*)description 

{ 

NSString "result; 
NS_DURING 
25 { 

NSValue *val = [self getOLEPropertyNamed:@"value"]; 
if (val != nil 

&& istrncmp ([val objCType], @encode(id) / 1) 
&& [[val nonretainedObjectValue] isKindOfClass: [NSString class]]) 
30 result = [[[val nonretainedObjectValue] retain] autorelease]; 

else 

result - [NSString stringWithFormat:@"<OLE Automation Object 0x%x>" / self]; 

} 

NS_HANDLER 
35 { 

result = [NSString stringWithFormat:@"<OLE Automation Object 0x%x>" / self]; 

} 

NS_ENDHANDLER; 

40 return result; 
} 

-(BOOL)isNSIDispatchProxy 
{ 

45 return YES; 

} 
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©end 



5 // 

/ / This category contains the methods needed to distribute 
/ / NSIDispatchProxy's over an NXConnection. 

// 

10 ©interface NSIUnknownProxy (NXDOcompatibility) @end 
©implementation NSIUnknownProxy (NXDOcompatibility) 

H 1 1 Required by NXReference stuff 

Q - (BOOL)conformsTo:(Protocol*)p 

a 15 { 

<\ BOOL retVal; 



20 if ([p conformsTo:@protocol(NXReference)]) 
retVal = YES; 
else 

retVal = NO; 

25 

return retVal; 

} 

30 / / called by NXConnection to maintain reference count 
- addReference 
{ 



35 



} 



[self retain]; 
return nil; 



// called by NXConnection when the wirecount reaches zero 
40 - free 
{ 



[self release]; 
45 return nil; 

} 

// Usied by the NXProxystuff to get the wirecount 
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-(unsigned int)references 
{ 

unsigned int cnt; 

cnt = [self retainCount]; 
return cnt; 

} 

/ / This is needed by the NXNSProxy stuff to decrement wirecount. 
-(void)_decrementReferencesBy:(int)i 

{ 

while (i~) [self release]; 

} 

// , „ 

// Even though we descend from NSProxy, we don t really want to be 

/ / regarded as a proxy from Objective C's point of view. 

// 

- (BOOL)isNXNSProxy 
{ 



return NO; 

} 

- (BOOL)isProxy 

{ 



return YES; // 4/30/96 BG 

} 



©end 



Thus, a method and apparatus for dynamically brokering object 
messages among object models has been described. 
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